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ABSTRACT 


THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT. 


PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
DMC1i CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
INPUT - THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 
PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 


CZDMC TESTS THE DMCiil MICRO-PROCESSOR (M8200-YA OR M8200-YB). 
IT PERFORMS WRITE/READ TESTS ON THE DMC UNIBUS REGISTERS, 
CHECKS THE MICRO-PROCESSOR OPERATION, CHECKS OUT MAIN MEMORY, 
SCRATCH PAD MEMORY, THE ALU FUNCTIONS AS WELL AS INTERRUPTS 
AND NPR OPERATION. CZOMC PERFORMS NO TESTS ON THE LINE UNIT 
OR ANY CROM DEPENDENT TESTS. IT DOES NOT REQUIRE A LINE UNIT 
TO RUN. NOTE: THIS DIAGNOSTIC WILL RUN ON A KMCi1 (M8204), 
HOWEVER IT IS NOT ADVISED THAT THIS DIAGNOSTIC BE USED TO 
CHECK A KMC11, RATHER YOU SHOULD CHECK A KMC1i1 WITH THE KMC11 
DIAGNOSTIC PACKAGE. 


CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE. 

NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 


THE FIVE DIAGNOSTICS ARE: 


1. CZDMC (REV) BASIC W/R AND MICRO-PROCESSOR TESTS 
2. CZOME (REV) DDCMP MODE LINE UNIT TESTS 

3. DOZOMF (REV) BITSTUFF LINE UNIT TESTS 

4. DZOMG [REV] JUMP AND CROM TESTS 

S. OZOMH [REV] FREE-RUNNING TESTS (HEAT TEST TAPE) 
REQUIREMENTS 

EQUIPMENT 


ANY PDP11 FAMILY CPU CEXCEPT AN LSI-11) WITH MINIMUM 8K MEMORY 
ASR 33 (OR EQUILIVALENT) 
OMC11-AR (M8200-YA) OR A DMC11-AL (M8200-YB) 


SEQ 2 











SEQ 3 
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1 
2 
3 2.2 STORAGE 
5 PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND 
é BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 1640; CONTAIN 
7 THE “STATUS TABLE” INFORMATION WHICH IS GENERATED AT START OF 
a DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 
9 (AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 

10 ALTERED BY THE OPERATOR. 

i 

12 3. LOADING PROCEDURE 

14 3.1 METHOD 

16 ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 

17 _ ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 

18 AS DISK ,MAGTAPE,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 

19 FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 

20 MEDIA. 

22 ABSOLUTE LOADER STARTING ADDRESS «500 

24 MEMORY « SIZE 

25 

26 4K 17 

27 BK 37 

28 12K 57 

29 16K 77 

30 20K 117 

31 24K 137 

32 28K 157 

34 

35 3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 

36 (ALSO PLACE ‘HALT’ SW UP) 

38 3.1.2 DEPRESS ‘LOAD ADDRESS’ KEY ON CONSOLE AND RELEASE. 

40 3.1.3 DEPRESS ‘START KEY’ ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 

41 BE LOADING INTO CPU) 

43 : 
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STARTING PROCEDURE 


A. SET SWITCH REGISTER TO 000200 

8. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 

C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 
INPUT CQUESTIONS) OR SWR BIT7=1 TO USE EXISTING PARAMETERS 
SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN OMC1i 
DIAGNOSTIC. 

D. DEPRESS ‘START KEY’ AND RELEASE. THE PROGRAM WILL TYPE 
MAINDEC NAME AND PROGRAM NAME CIF THIS WAS THE FIRST START 
UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 


MAP OF DMC11 STATUS 


PC CSR STATi STAT2 STATS 


001500 160010 145310 177777 000000 
€01510 160020 145320 177777 000000 


THE PROGRAM WILL TYPE ‘R‘ AND PROCEED TO RUN THE DIAGNOSTIC. 
THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADD. 1500 IN THE PROGRAM. IN THIS EXAMPLE 
THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11’'S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
a" FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 


IF THE DIAGNOSTIC WAS STARTED WITH SWOO=1 INDICATING MANUAL 
PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 
QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 


HOW MANY DMC11‘S TO BE TESTED?1 


01 

CSR gy lb gop 

VECTOR ADDRESS ?31 

BR PRIORITY LEVEL? €4,5,6,7)?5 

DOES MICRO-PROCESSOR HAVE CRAM? (Y OR NN 

WHICH LINE UNIT? IF NONE TYPE “N’, “Tt M8201 TYPE “1”, IF 
M8202 TYPE “2°71 

IS THE LOOP BACK CONNECTOR ON7Y 

SWITCH PAC@1 CODCMP LINE#)?377 

SWITCH PAC@2 (BM873 BOOT ADD)?377 


FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 


DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 


ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 
SWOO0=0 AND SWO7=0 (CAUTO-SIZING) THEN NO QUESTIONS ARE ASKED 
AND ONLY THE STATUS-MAP IS PRINTED OUT. IF AUTO-SIZING IS 
USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT 
(MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 
an MUST BE RESTARTED WITH SWOO=1 AND THE QUESTIONS 


SEQ 4 





— 





A 








SEQ 5 
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58 

59 

4 4.1 CONTROL SWITCH SETTINGS 

62 SW 15 SET: HALT ON ERROR 

63 SW 14 SET: LOOP ON CURRENT TEST 

64 SW 13 SET: INHIBIT ERROR PRINT OUT 

65 SW 12 SET: INHIBIT TYPE OUT/ABELL ON ERROR. 

66 SW ii SET: INHIBIT ITERATIONS. (QUICK PASS) 

67 SW 10 SET: ESCAPE TO NEXT TEST ON ERROR 

68 SW 09 SET: LOOP WITH CURRENT DATA 

69 SW 08 SET: CATCH ERROR AND LOOP ON IT 

70 SW O07 SET: USE PREVIOUS STATUS TABLE. 

71 SW 06 SET: HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
72 MICRO-PROCESSOR 

73 SW OS SET: RESERVED 

74 SW 04 SET: RESERVED 

75 SW O03 SET: RESELECT DMC11‘S DESIRED ACTIVE 

76 SW O02 SET: LOCK ON SELECTED TEST 

77 SW O01 SET: RESTART PROGRAM AT SELECTED TEST 

78 SW O00 SET: BUILD NEW STATUS TABLE FROM QUESTIONS. CIF SWO7=0 
79 AND SWOO=0 A NEW STATUS TABLE IS BUILT BY 
- AUTO-SIZING) 

82 SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
83 WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-03 AND SWITCH 07 
a Siakatae’ AND ARE USED ONLY ON STARTING OR RESTARTING THE 





‘a. 
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4.1.2 
SW O01 


SW 02 


SW 03 


» METHOD : 





SWITCH REGISTER OPTIONS CAT START UP) 


RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 

WHEN THIS SWITCH ZS USED THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
— RETURN TO BEGIN EXECUTION AT THE SELECTED 


LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SWO1 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SWO2=0 WHEN SWO1 IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 


RESELECT OMC11‘S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO DMC11‘S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
BITS 00,01,02,03 WILL BE SET IN LOC 

OM THE SWITCH REGISTER. USING THIS 
SWITCHCSWOO) ALTERS THAT LOCATION; THEREFORE IF FOUR 
DMC11S ARE IN THE SYSTEM «#00 NOT#es SET SWITCHS 
GREATER THAN SW O03 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. DO NOT SELECT MORE ACTIVE DMC11S THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 


: LOAD ADDRESS 200 

B: START WITH SW 00-1 

C; PROGRAM WILL TYPE MESSAGE 

D: SET A SWITCH FOR EACH DMC DESIRED ACTIVE. 
EXAMPLE : HAVE 4 DMC’S BUT ONLY WANT TO 
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 


3 = 1. PRESS CONTINUE 

Es: NUMBER CIF VALID) WILL BE IN DATA LIGHTS 
CEXCLUDING 11/05) 

F; SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 
PRESS CONTINUE. 


SEQ 6 
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DYNAMIC SWITCHES 
ERROR SWITCHES 


1. SWi2 DELETE PRINT OUT/BELL ON ERROR. 

2. SW 13 DELETE ERROR PRINTOUT. 

3. SW 15 HALT ON THE ERROR. 

4. SW 08 GOTO BEGINNING OF THE TESTCON ERROR). 
- SW 10 GOTO NEXT TESTCON ERROR). 


SCOPE SWITCHES 


1. SWO6 HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
MICRO-PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME RUNNING. 

2. SWO9 CIF ENABLED BY ‘SCOP1’) ON AN ERROR; IF AN ‘#* IS 
PRINTED IN FRONT OF THE TEST NO. (EX. #TEST NO. 
10 ) SWO9 IS INCORPORATED IN THAT TEST AND 
THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR THE 
SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWO8=0). IF 
SWO9 IS NOT ENABELED; AND THERE IS A HARD ERROR 
(CONSTANT); SWOS IS BEST. (SW14=1,0, SW10=0, 
SWO9=0, SWO8=1). FOR INTERMITTEMT ERRORS; SW1i4=1 
WILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 
ERROR. (SW14=1, SW10=0, SWO9=0, SW08=1,0) 

3. SW1il INHIBIT INTERATIONS. 

4. SwWi4 LOOP ON CURRENT TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE OMC11 DIAGNOSTICS. (SEE SECTION 4.0) 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS UNDER ACTii OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY AFTER ALL AVAILABLE OMC11‘S ARE TESTED THE 
PROGRAM WILL RETURN TO ‘XXDP’ OR ‘ACT-11'. 


OPERATING PROCEDURE 


WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC | 


SEQ 7 
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5.2 


6.2 





PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


1. HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS. 
a. CLEAR SW 15. 

3. SET SW 14: (LOOP ON THIS TEST) 

4, SET SW 13: CINHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 
THE TEST CAN BE DETERMINED. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 
12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
ol ye Bing ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 


ERROR RECOVERY 


IF FOR SOME REASON THE OMC1i1 SHOULD ‘HANG THE BUS’ (GAIN 
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 
‘TSTNO’ CADDRESS 1226)FOR THE NUMBER OF THE TEST THAT WAS 
RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMC11 WAS DOING 
AT THE TIME OF THE ERROR. 


RESTRICTIONS 
STARTING RESTRICTIONS 


SEE SECTION 4. (PLEASE) 

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 
STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 
———_ eo PRINTED ON THE TTY TO COMPLETLY ISOLATE 


SEQ & 
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7.3 


8.2 





OPERATING RESTRICTIONS 


THE FIRST TIME A DMC1i1 DIAGNOSTIC IS LOADED INTO CORE AND RUN 
THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 
(SWOO=1) OR BY AUTOSIZING (SWOO=0 AND SWO7=0). #THEREAFTER 
HOWEVER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 
RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC BECAUSE THE 
STATUS TABLE IS OVERLAYED. THE CURRENT PARAMETERS IN THE 
STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 


HARDWARE CONFIGURATION RESTRICTIONS 


DMC110M8200)- JUMPER Wi MUST BE IN, AND SWITCH 7 OF E76 MUST 
BE IN THE OFF POSITION. 


KMC(M8204)- JUMPER Wi MUST BE IN. 
MISCELLANEOUS 
EXECUTION TIME 


ALL DMC1ii DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS‘ MESSAGE 
(PROVIDING NO ERRORS AND SWi2=0) WITHIN 4 MINS. THIS IS 
ASSUMING SWii=i (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
ovate PDOP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 


PASS COMPLETE 


NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 
AS IF SWil (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 
‘VERIFY NO HARD ERRORS’ AS SOON AS POSSIBLE. THEREFORE THE 
FIRST PASS -EACH TIME PROGRAM IS STARTED- WILL BE A ‘QUICK 
PASS' UNTIL ALL ODMCi1'S IN SYSTEM ARE TESTED. WHEN THE 
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 


END PASS CZDMC CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 


NOTE: THE PASS oo Rin ERROR COUNTS ARE CUMMULITIVE FOR 
EACH OMC1i1 T IS RUNNING, AND ARE SET TO ZERO ONLY 
WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 
OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS 
FOR EACH DMC1i1 SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS: 


SEQ 9 
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KEY LOCATIONS 


RETURN (1214) CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


NEXT (1216) CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PEFORMED. 


TSTNO (1226) #CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 


RUN (1316) THE BIT IN ‘RUN’ ALWAYS POINTS TO THE OMC11 
CURRENTLY BEING TESTED. EXAMPLE: (RUN) 
1302/0000000001000000 MEANS THAT OMCil NO.06 
IS THE OMC1i1 NOW RUNNING. 


DMCROO -DMCR17 


- DMSTOO-DMST17 


8.4A 


(1500) -(€ 1640) 
THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) DMC11S SEQUENTIALY. 
THEY CONTAIN THE CSR,VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH DMC11. 


DMACTV (1306) EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED OMC1ii WILL BE TESTED IN TURN. 
EXAMPLE: C(DMACTV) 1276/0000000000011111 MEANS 
THAT OMCi1 NO. 00,01,02,03,04 WILL BE TESTED. 
EXAMPLE: (DMACTV) 1276/0000000000010001 MEANS 
THAT DMC11 NO. 00,04 WILL BE TESTED. 


DMCSR (1404) — THE CSR OF THE CURRENT OMC1ii UNDER 


‘STATUS TABLE’ (1500-1640) 


THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION. 


THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO OMC11‘S. THE TABLE CAN CONTAIN UP TO 16 OMC11'S. 
<= THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 

RY 


MAP OF DMC11 STATUS 


PC CSR STATI STAT2 STATS 


001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 





SEQ 10 
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EACH MAP ENTRY CONTAINS ~  4«ORDS WHICH CONTAIN THE STATUS 

INFORMATION FOR 1 ODMC11. THE PC SHOWS WHERE IN CORE MEMORY 

THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 

DMC‘S STATUS IS IN LOCATIONS, 1500, 1502, 1504, AND 1506. THE 

SECOND DMC STATUS IS LOCATED AT 1510, 1512, 1514, AND 1516. 

far ee CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS 
LL : 


CSR: CONTAINS DMCii CSR ADDRESS 


STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT15=1 MICRO-PROCESSOR HAS CRAM 
BIT15=0 MICRO-PROCESSOR HAS CROM 
BIT14=1 TURNAROUND CONNECTOR IS ON 
BIT14=0 NO TURNAROUND CONNECTOR 
BIT13=0 LINE UNIT IS AN M8201 
BIT13=1 LINE UNIT IS AN M8202 
BIT12=1 NO LINE UNIT 
BITS 09-11 IS DMCii BR PRIORITY LEVEL 


STAT2: LOW BYTE IS SWITCH PAC#1 CDDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC@2 (BM873 BOOT ADD) 


STATS: BITO=1 RUN FREE RUNNING TESTS ON KMCi1 
BIT1=0 DMC11-AR (LOW SPEED) 
BITi=1 DMC11-AL CHIGH SPEED) 





SEQ 11 
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8.5 
8.5.1 


8.3.2 


8.6 


METHOD OF AUTO SIZING 
FINDING THE CONTROL STATUS REGISTER. 


THE AUTO-SIZING ROUTINE FINDS A DMCil AS FOLLOWS: IT STARTS 
AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 
TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 
OUT, THE FOLLOWING IS DONE, THE FIRST CROM ADDRESS IS WRITTEN 
TO A 125252 THEN IT IS READ BACK. IF IT CONTAINS A -1 OR 
125252 OR 626 OR 16520 A DMCiil OR KMC11 HAS BEEN FOUND, IF 
NOT, THE ADDRESS IS UPDATED BY 10 ar THE SEARCH CONTINUES. A 
-1 INDICATES A DMCil WITH NO CROM, A 125252 INDICATES A KMCii 
WITH CRAM, A 626 INDICATES A DOMC11-AL AND A 16520 INDICATES A 
DMC11-AR. FURTHER TESTS ARE PERFORMED AT THIS POINT TO 
DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IF A 
LOOP-BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH SETTINGS 
ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST BE 
VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
THE QUESTIONS MUST BE ANSWERED. ALL DMC11‘S IN THE SYSTEM 
WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FIND A OMCil1 
THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED. 


FINDING THE VECTOR AND BR LEVEL 


THE VECTOR AREA (CADDRESS 300-776) IS FILLED WITH THE 
INSTRUCTION IOT AND ‘.+2' (NEXT ADDRESS). THE PROCESSOR 
STATUS IS STARTED AT 7 AND THE DMC IS PROGRAMMED TO INTERRUPT. 

THE PS IS LOWERED BY 1 UNTIL THE OMC INTERRUPTS, A DELAY IS 
MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 
BAD OMC1i) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 
S AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 
PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
CORRECT VECTOR. IF AN INTERUPT OCCURED; THE ADDRESS TO WHICH 


THE , 
VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 
UP BY YOU; THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 


SOFTWARE SWITCH REGISTER 


If THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 
ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 
AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 
REGISTER IS USED. 


CONTROL : 


TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURING ag ie OF 


TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 





SEQ 12 
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SWR=XXXXXX NEW? 


WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 
REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 
TO TYPE ONE OR MORE OF THE LEGAL CHARACTERS: 1) 0 - 7, 2) 
LINE FEEDC<LF>), 3) CARRIAGE RETURN(<CR>), OR 4) CONTROL-U 
(CTRL U). NO CHECK IS MADE FOR LEGALITY. IF THE INPUT 
CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO BE 
AN OCTAL DIGIT. 


TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 
THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE 
TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF> 
DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 
THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 
AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 
PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 


WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC 
WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS 
INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 
WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 
ps eg Pd RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 


IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 
THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 
PROMPT DISPLAYED (SWR = XXXXXX NEW?). 


TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
DIAGNOSTIC, TK :N HIT CTRL G, THEN START THE DIAGNOSTIC. 





SEQ 13 











SEQ 14 
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1683 


3#AC-8544C-MC CZDMC-DO BASIC DMC11 CONTROLLER TEST 
s*#COPYRIGHT 1976.1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


sSTARTING PROCEDURE 
;LOAD PROGRAM 

sLOAD ADDRESS 000200 

sSWR=0 AUTOSIZE DMC11 

sSWO7=1 USE CURRENT DMC11 PARAMETERS 

sSWOO=1 INPUT NEW DMC11 PARAMETERS 

sPRESS START 

sPROGRAM WILL TYPE “AC- gem “a CZDMC-DO BASIC DMC1ii CONTROLLER TEST” 
sPROGRAM WILL TYPE STATUS MA 

sPROGRAM WILL TYPE “R” TO INDICATE THAT TESTING HAS STARTED 

sAT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

sAND THEN RESUME TESTING 

sSUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


sSWITCH REGISTER OPTIONS 


, “2 ewan ewan ee eee een aeanee vee aes - | 


-— 


100000 $W15=100000 3*1,HALT ON ERROR 

040000 SW14=40000 3:=1,LO0P ON CURRENT TEST 

020000 $W13=20000 :=1, INHIBIT ERROR TYPEOUT 

010000 SW12=10000 :=1,DELETE TYPEOQUT/BELL ON ERROR. 

004000 SW11=4000 | :=1, INHIBIT ITERATIONS 

002000 $W10=2000 3=1,ESCAPE TO NEXT TEST ON ERROR 

001000 SWO9=1000 :=1,LOOP WITH CURRENT DATA 

000400 SW08=400 :=1,LO0P ON ERROR 

000200 SWO7=200 3*1,USE CURRENT DMC1i1 PARAMETERS, -0,AUTOSIZE DMC11 
000100 SW06=100 371, HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 
000040 SWOS=40 

000020 SWO04=20 

000010 SWO3=10 sRESELECT DMC11'S TO BE TESTED (ACTIVE) 

000004 SWO2 =4 sLOCK ON TEST SELECT 

000002 SWO1=2 sRESTART PROGRAM AT SELECTED TEST 

000001 SWO0=1 sINPUT DMC11 PARAMETERS 








CZOMC 


—— 


0 





177776 
001200 
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GENERAL DEFINATIONS AND EQUIVALENCIES 


sREGISTER DEFINITIONS 


;GENERAL REGISTER 
;GENERAL REGISTER 
;GENERAL REGISTER 
sGENERAL REGISTER 
sGENERAL REGISTER 
sGENERAL REGISTER 


PROCESSOR phen POINTER 


sPROGRAM COUNTE 


sLOCATION EQUIVALENCIES 


PS=177776 
STACK=1200 


sPROCESSOR STATUS WORD 
sSTART OF PROCESSOR STACK 


sINSTRUCTION DEFINITIONS 


POP2SP =22626 
sBIT DEFINITIONS 


sDECREMENT PROCESSOR STACK 1 WORD 
sINCREMENT PROCESSO® STACK 1 WORD 
sSAVE RO ON STACK 

sRESTORE RO FROM STACK 

sDECREMENT STACK TWICE 

s INCREMENT STACK TWICE 


SEQ 15 
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£ 2s SSSSASSSSSSAESSESESESESEAEEEAASASESSESSESEAAAAAAEALALELARERELAAEELKE ES 


; TRAPCATCHER FOR ILLEGAL INTERRUPTS 
;THE STANDARD “TRAP CATCHER” IS PLACED 
sBETWEEN ADDRESS 0 TO ADDRESS 776. 

sIT LOOKS LIKE “PC+2 HALT”. 


£2 SESSSSESSESESEESALESASEAEASASEALASASAAESSAESAEASESEAZASERAZASLALELEDEERES 


000000 .=0 
;STANDARD INTERRUPT VECTORS 
3 Se ee ee ee ee ee eee ee ee ee es 
000024 .=24 
000024 005336 .PFAIL ;sPOWER FAIL HANDLER 
000026 000340 340 ;SERVICE AT LEVEL 7 
000030 004750 HLT sERROR HANDLER 
000032 000340 340 ;sSERVICE AT LEVEL 7 
000034 004716 . TRPSRV ;GENERAL HANDLER DISPATCH SERVICE 
000036 000340 340 ;sSERVICE AT LEVEL 7 
000040 .=40 
000040 000000 0 ;SAVE FOR ACT-11 OR XxOP 
060042 000000 0 sRETURN ADDRESS IF UNDER ACT-11 OR XxDP 
000044 000000 0 ;SAVE FOR ACT-11 OR XXODP 
000046 003522 $ENDAD sFOR USE WITH ACT-11 OR XxOP 
000052 .=52 
000052 000000 0 ;ACT-11 PROGRAM CHARACTERISTICS 
000174 .=174 
000174 000000 DISPREG:0 sSOFTWARE DISPLAY REGISTER 
000176 000000 SWREG: 0 ;SOFTWARE SWITCH REGISTER 
000200 .=200 
000200 000137 002002 JMP .START :GO TO START OF PROGRAM 
~ 001000 -*1 
001000 377 012 101 MTITLE: .ASCII <377><12>/AC-8544C-MC/<377> 
001016 103 132 104 -ASCIZ /CZDMC-DO BASIC DMC11 CONTROLLER TEST/<377> 
001200 - #1200 
sINDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 
3 ese e@eee 2 eee ete eB eB eB Be BB wR wEZEeeneeeseecanenenwneneaeneeennentsnaecnencnnnanmn eee 
001200 177570 DISPLAY: 177570 
001202 177570 SWR: 177570 





REE SSS NY a aes ton Oa 





a inal 





SEQ 17 
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sINDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 


001204 177560 TKCSR: 177560 ;TELETYPE KEYBOARD CONTROL REGISTER 
001206 177562 TKDBR: 177562 sTELETYPE KEYBOARD DATA BUFFER 
001210 177564 TPCSR: 177564 ;TELEPRINTER CONTROL REGISTER 
001212 177566 TPDBR: 177566 ;TELEPRINTER DATA BUFFER 


001214 000000 RETURN: O ;SCOPE ADDRESS FOR LOOP ON TEST 

001216 000000 NEXT: 0 sADDRESS OF NEXT TEST TO BE EXECUTED 

001220 000000 LOCK 0 sADDRESS FOR LOCK ON CURRENT DATA 

001222 000003 ICOUNT: 3 sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
001224 000000 LPCNT: 0 sNUMBER OF ITEREATIONS COMPLETED 

001226 000000 TSTNO: O sNUMBER OF TEST IN PROGRESS 

001230 000000 PASCNT: 0 sNUMBER OF PASSES COMPLETED 

001232 000000 ERRCNT: O sTOTAL NUMBER OF ERRORS 

001234 LSTERR: 0 sPC OF LAST ERROR CALL 


001236 STRTSW: 0 sSWITCHES AT START OF PROGRAM 
001240 000000 STAT: 0 3DM STATUS WORD STORAGE 
001242 900000 CLKX: 0 
001244 000000 MASKX: 0 
001246 000000 TEMP1i: 0 ; TEMPORARY STORAGE 
001250 000000 TEMP2: O ; TEMPORARY STORAGE 
001252 000000 TEMPS: 90 ; TEMPORARY STORAGE 
001254 000000 TEMP4: 0 s TEMPORARY STORAGE 
001256 000000 TEMPS: 0 ; TEMPORARY STORAGE 

000000 SAVRO: 0 sRO STORAGE 
001262 000000 SAVRi: 0 sR1 STORAGE 
001264 000000 SAVR2: 0 sR2 STORAGE 
001266 900000 SAVRS: 0 sR3 STORAGE 
001270 000000 SAVR4: ¢C sR4 STORAGE 
001272 000000 SAVRS: 90 3RS STORAGE 
001274 000000 SAVSP: 90 sSTACK POINTER STORAGE 
001276 000000 SAVPC: 0 sPROGRAM COUNTER. STORAGE 
001300 000000 ZERO: 0 
001302 000001 ONE : 1 
001304 000000 MEMLIM: 0 sHIGHEST LOCATION FOR NPR'S 
001306 DMACTV: .BLKW 1 ;DMC11'S SELECTED ACTIVE. 
001310 DMNUM: .BLKW 1 sOCTAL NUMBER OF DMC11'S. 
001312 SAVACT: .BLKW 1 sORIGINAL ACTV DEVICES 
001314 SAVNUM: .BLKW 1 ;WORKABLE NUMBER 
001316 000000 yo ® 0 sPOINTER TO RUNNING DEVICE. 
001320 001472 CREAM: DOM.MAP-6 ;TABLE POINTER. 
001322 001676 MILK: CNT.MAP-4 ;TABLE POINTER 





i iii eee 
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SEQ 18 
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sPROGRAM CONTROL FLAGS 


001324 000 INIFLG: .BYTE sPROGRAM INITIALIZATION FLAG 
001325 000 LG: .BYTE sERROR OCCURED FLAG 
001326 000 LOKFLG: .BYTE sLOCK ON CURRENT TEST FLAG 
001327 000 QV.FLG: .BYTE sQUICK VERIFY FLAG. 
— ;0N FIRST PASS OF EACH DMC11 ITERATIONS WILL BE SUPPRESSED. 
sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND 
sIN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 
j : PRRRERASSAESASEEEEEEEERESERESEAESEEAEAAE SEARED EADS EEEEEEESEEEEEEEE EE 
s i rene ede ieee a a a a a a | 
001330 . TRPTAB: 
104400 SCOPE=TRAP +0 sCALL TO SCOPE LOOP AND ITERATION HANDLER 
001330 003576 . SCOPE 
104401 SCOP 1=TRAP +1 ;CALL TO LOOP ON CURRENT DATA HANDLER 
001332 003736 . 
104402 TYPE =TRAP+2 sCALL TO TELETYPE OUTPUT ROUTINE 
0C1334 003766 . TYPE 
104403 INSTR= TRAP +3 sCALL TO ASCII STRING INPUT ROUTINE 
001336 004050 - INSTR 
104404 INSTER=TRAP +4 sCALL TO INPUT ERROR HANDLER 
001340 004154 
1 PARAM=TRAP +5 ;CALL TO NUMERICAL DATA INPUT ROUTINE 
001342 004174 . 
104406 SAVOS= TRAP +6 sCALL TO REGISTER SAVE ROUTINE 
001344 004374 - SAV 
104407 RESOS= TRAP +7 sCALL TO REGISTER RESTORE ROUTINE 
001346 004434 -RE 
eoanse 104410 ae sCALL TO DATA OUTPUT ROUTINE 
104411 CNVRT=TRAP +11 ;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
001352 004472 - CNVRT 
104412 MSTCLR=TRAP +12 sCALL TO ISUE A MASTER CLEAR 
001354 -MSTCLR 
104413 DELAY=TRAP +13 ;CALL TO DELAY 
001356 005436 -DELAY 
104414 ROMCLK=TRAP+14 sCALL TO CLOCK ROM ONCE 
001360 005504 -ROMCLK 
104415 DATACLK=TRAP +15 sCALL TO CLK DATA 
001362 005552 . DATACLK 
104416 TIMER= TRAP +16 s;CALL TO DELAY A CLOCK TICK 
001364 005616 . TIMER 


la ll ee ee eee ee ee ee ee ee ee ee ee ee ee ne en ee ee ee ee ee ee ee ee es 


5 2 2466644666 4646 6464666464646 4646646064460 4660646446404 4646464606464646646646446464466446686 
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000000 
001460 


001500 





SEQ 19 


sDMCi1l CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 


STATi: 0 
STAT2: 0 
STATS: 0 


sDMCi1 VECTOR AND REGISTER INDIRECT POINTERS 


DMRVEC: O ;POINTER TO DMC1i1 RECEIVER INTERRUPT VECTOR 
DMRLVL: O sPOINTER TO DMC11 RECEIVER INTERRUPT SERVICE PS 
DMTVEC: 0 :POINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR 
DMTLVL: 0 sPOINTER TO DMC11 TRANSMITTER INTERRUPT SERVICE PS 
DMCSR: O sPOINTER TO DMC11 CONTROL STATUS REGISTER 
DMC : 0 sPOINTER TO DOMC1i CONTROL STATUS REGISTER HIGH BYTE. 
DMCTL: O sPOINTER TO DMC1i CONTOL OUT REGISTER 
DMPO4: O sPOINTER TO DMC11 PORT REGISTERC(SEL 4) 
DMPO6: O sPOINTER TO DMC11 PORT REGISTERCSEL 6) 

sTEMP STORAGE 

3 e@eaeenenanaaaae 
TEMP : 8) 

=,+40 


sD0MC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


sCONTROL STATUS REGISTER FOR DMC1i1 NUMBER 00 
sVECTOR FOR DMC11 NUMBER 00 

sDDCMP LINE® FOR DMC11 NUMBER 00 

sSRD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 01 
sVECTOR FOR OMC11 NUMBER 01 

s:DDCMP LINE@ FOR DMC11 NUMBER 01 

+ 3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 02 
;VECTOR FOR DOMC11 NUMBER 02 

sDDCMP LINE@ FOR DMC11 NUMBER 02 

33RD STATUS WORD 





DMCROS : sCONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
DMS103: sVECTOR FOR DMC1i NUMBER 03 

OMS203: ;DDCMP LINE@ woke DMC11 NUMBER 03 

DMS303: + 3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMCi1 NUMBER 04 
sVECTOR FOR DMC11 NUMBER 04 

sDDCMP LINE@ FOR OMC11 NUMBER 04 

s3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMCi1 NUMBER 05 


5 

Se 

2 * ee 8 
dl ee ee ot eer 








_— 
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OMS105: .BLKW 
OMS205: .BLKW 
OMS305: .BLKW 
DMCRO6: .BLKW 
DMS106: .BLKW 
DOMS206: .BLKW 
DMS306: .BLKW 
DMCRO7: .BLKW 
OMS107: .BLKW 
DMS207: .BLKW 
OMS307: .BLKW 
DMCR10: .BLKW 
DMS110: .BLKW 
OMS210: .BLKW 
OMS310: .BLKW 
OMCRi1: .BLKW 
DMSi11: .BLKW 
DMS211: .BLKW 
DMS31i: .BLKW 
DMCR -BLKW 
OMS1i2: .BLKW 
DMS2i2: .BLKW 
DOMS312: .BLKW 
DMCR13: .BLKW 
OMS113: .BLKW 
DOMS213: .6LKW 
OMS313: .BLKW 
DMCRi4: .BLKW 
OMS114: .BLKW 
OMS214: .BLKW 
DMS314: .BLKW 
DMCRiS: .BLKW 
OMS115: .BLKW 
OMS2i5: . 

OMS315: .BLKW 
DMCRi6: .BLKW 
OMS116: .BLKW 
OMS216: .BLKW 
OMS316: .BLKW 
DOMCRi7: .BLKW 
DMS117: . 

DMS217: .BLKW 
DMS317: .BLKW 
DM.END: 000000 





el cel eek ae eed cel ool ed ed et tt ee tt ee tt et. ) )) ee TT 





SEQ 20 


sVECTOR FOR DMC11 NUMBER 05 
;DDCMP LINE® FOR DMC11 NUMBER 05 
33RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 06 
sVECTOR FOR DMC1i NUMBER 06 

sDDCMP LINE® FOR DMC11 NUMBER 06 

33RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 07 
sVECTOR FOR DMC11 NUMBER 07 

sDDCMP LINE® FOR DMCi1 NUMBER 07 

SRD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 10 
sVECTOR FOR DMC11 NUMBER 10 

sDDCMP LINE# FOR DMC11 NUMBER 10 

:3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 11 
;VECTOR FOR DMC11 NUMBER 11 

sDDCMP LINE® FOR DMC11 NUMBER 11 

SRD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 12 
sVECTOR FOR DMCi1 NUMBER 12 

sDDCMP LINE@ FOR DMC11 NUMBER 12 

33RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11l NUMBER 13 
sVECTOR FOR DMC11 NUMBER 13 

sDDCMP LINE@ FOR DMC11 NUMBER 13 

33RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 14 
sVECTOR FOR DMC1i NUMBER 14 

sD0CMP LINE FOR DMC1i1 NUMBER 14 

33RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 15 
sVECTOR FOR DMCii NUMBER 15 

;DDCMP LINE@ FOR DMC1i1 NUMBER 15 

+ 3RO STATUS WORD 


sCONTROL STATUS REGISTER =< DMCil NUMBER 16 
sVECTOR FOR DMC11 NUMBER 1 

sDOCMP LINE& FOR DMC11 NUMBER 16 

+ 3RD STATUS WORD 


sCONTROL STATUS REGISTER FOR DMC11 NUMBER 17 
sVECTOR FOR OMC11 NUMBER 17 

sDDCMP LINE@ FOR DMC11 NUMBER 17 

+ 3RO STATUS WORD 





— ES SEE 











SEQ 21 
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s0MCii1 PASS COUNT AND ERROR COUNT TABLE 


001702 CNT. MAP 

001702 000000 PACTOO: 0 sPASS COUNT FOR DMC1i1 NUMBER 00 
001704 000000 ERCTOO: O sERROR COUNT FOR DMC11 NUMBER 00 
001706 000000 PACTO1: 0 sPASS COUNT FOR DMC11 NUMBER 01 
601710 000000 ERCTO1: 0 sERROR COUNT FOR DMC11 NUMBER 01 
001712 000000 PACTO2: 0 sPASS COUNT FOR DMC1i NUMBER 02 
001714 000000 ERCTO2: 0 sERROR COUNT FOR DMC11 NUMBER 02 
001716 000000 PACTO3: 0 sPASS COUNT FOR DMC11 NUMBER 03 
001720 000000 ERCTOS: 0 sERROR COUNT FOR DMC11 NUMBER 03 
001722 000000 PACTO4: 0 sPASS COUNT FOR DMCi1 NUMBER 04 
001724 000000 ERCTO4: 0 sERROR COUNT FOR OMC11 NUMBER 04 
001726 000000 PACTOS: 0 sPASS COUNT FOR DMC11 NUMBER 05 
001730 000000 ERCTOS: 0 sERROR COUNT FOR DMC11 NUMBER 05 
0€1732 000000 PACTO6: 0 sPASS COUNT FOR DMCi1 NUMBER 06 
001734 000000 ERCTO6: 0 sERROR COUNT FOR DMC11 NUMBER 06 
001736 000000 PACTO7: 0 sPASS COUNT FOR DMC11 NUMBER 07 
001740 000000 ERCTO7: 0 sERROR COUNT FOR DMC11 NUMBER 07 
001742 000000 PACT10: 0 sPASS COUNT FOR DMC1i1 NUMBER 10 
001744 000000 ERCT10: 0 sERROR COUNT FOR DMC11 NUMBER 10 
001746 000000 PACTii: 0 sPASS COUNT FOR DMC11 NUMBER 11 
001750 000000 ERCT11: 0 sERROR COUNT FOR DMC11 NUMBER 11 
001752 000000 PACTi2: 0 sPASS COUNT FOR DMC11 NUMBER 12 
001754 000000 ERCT1i2: 0 sERROR COUNT FOR DMC11 NUMBER 12 
001756 000000 PACTI3: 0 sPASS COUNT FOR DMC11 NUMBER 13 
001760 000000 ERCT13: 0 sERROR COUNT FOR DMC11 NUMBER 13 
001762 000000 PACT14: 0 sPASS COUNT FOR DMC11 NUMBER 14 
001764 000000 ERCT14: 0 sERROR COUNT FOR DMC11 NUMBER 14 
001766 000000 PACTi5: 0 sPASS COUNT FOR DMC11 NUMBER 15 
001770 000000 ERCT1iS5: 0 sERROR COUNT FOR DMC11 NUMBER 15 
001772 000000 PACT16: 0 sPASS COUNT FOR DMCi1 NUMBER 16 
001774 000000 ERCT16: 0 sERROR COUNT FOR DMC11 NUMBER 16 
001776 000000 PACT17: 0 sPASS COUNT FOR DMC11 NUMBER 17 
002000 000000 ERCT17: © sERROR COUNT FOR DMC11 NUMBER 17 


- 








~~ 
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FORMAT OF STATUS TABLE 


15 14 13 i2 11 10 09 08 O7 O06 O05 O04 O3 O2 O1 00 


CSR: CONTAINS DOMCi1 CSR ADDRESS 


STATi: BITS 00-08 IS DMCii VECTOR ADORESS 
BITi5=1 MICRO- HAS CRAM 





BIT13=1 LINE UNIT IS AN M8202 
| INE UNIT 
BITS 09-11 TS OMC11 BR PRIORITY LEVEL 





CSR 


STATI 


STAT2 


STATS 


STAT2: 


STATS: 





LOW BYTE IS SWITCH PACG1 CDDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC@2 (BM873 BOOT ADD) 


BITO=1 D0 FREE RUNNING TESTS ON KMC 

(MUST BE eae TO A ONE MANUALLY [PROGRAM DZDMI ONLY)) 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 

DZOMG TEST. 2 FIRST 

BITi=1 OMC11-AL LOCAL HIGH SPEED MICRO-CODE 

BIT1=0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 





SEQ 22 


CZDMC 


-— 
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04.00 


00 
012737 


177570 


177776 


000024 
001314 


001320 
001322 
001316 


001202 
001200 
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PROGRAM INITIALIZATION AND START UP. 


- START: 


23%: 


6$: 








sPROGRAM INITIALIZATION 
sLOCK OUT INTERRUPTS 
sSET UP PROCESSOR STACK 


SEQ 23 


;SET UP POWER FAIL VECTOR 
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 


sTYPE TITLE MESSAGE 


MOV #340 ,PS 

MOV #STACK ,SP 
MOV #.PFAIL ,8¢24 
MOV DMNUM, SAVNUM 
CLR SWFLG 

CLRB ERRFLG 

CLRB QV.FL 

MOV 

MOV @CNT .MAP-4 ,MILK 
MOV #BIT15,RUN 
MOV @CNT .MAP ,RO 
CLR CRO)+ 

CMP @CNT .MAP+100,RO 
BNE 23$ 

CLR LSTERR 

MOV #1,TSTNO 

MOV #. START ,RETURN 
MOV 866, -(SP) 
MOV 004, -(SP) 
MOV $6$ , 804 

MOV #177570, SWR 
MOV #177570, DISPLAY 
CMP #-1,38SWR 

BEQ 6$+2 

BR 7$ 

CMP (SP)+,(SP)-+ 
MOV OSWREG, 

MOV 

MOV (SP)+, 

MOV (SP )+, 806 
TST8 INIFLG 

BNE 20% 

CMP @SENDAD , 8642 
BEQ 20% 

TYPE MTITLE 

JSR PC ,CKSWR 

MOV Q@SWR,.STRTSW 
TST 342 

BEQ . +6 

CLR STRTSW 

BIT #SW00.,STRTSW 
BNE 17% 

TSTB STRTSW 

BPL 7$ 

TST DMACTV 

BNE 6$ 

TYPE, NOACT 

HALT 


sLOCK OUT INTERRUPTS 
;SET UP STACK 
;SET UP POWER FAIL VECTOR 
sSAVE NUMBER OF DEVICES IN SYSTEM. 
s;CLEAR SOFT TYPEOUT FLAG 
;CLEAR ERROR FLAG 

;ZERO QUICK VERIFY FLAG 


G 
#DM.MAP-10, CREAM;GET MAP POINTER. 


sGET PASS COUNT MAP POINTER 
sPOINT POINTER TO FIRST DEVICE. 
sPASS COUNT POINTER TO RO 
;CLEAR TABLE 


NG 
sCLEAR LAST ERROR POINTER 
;SET UP FOR TEST 1 

sSET UP FOR POWER FAIL BEFORE 
sTESTING STARTS 

sSAVE CURRENT VECTORS 


;SET UP FOR TIMEOUT 

;SET SWR TO HARD SWR ADDRESS 

;SET DISPLAY TO HARD SWR ADDRESS 
sREFERENCE HARDWARE SWITCH REGISTER 

;IF = -1 USE SOFT SWR ANYWAY 

;IF IT EXISTS AND NOT = -1 USE HARD SWR 
sADJUST STACK 

sPOINTER TO SOFT SWR 


EG, SWR 
eOTSPREG DISPLAY :POINTER TO SOFT DISPLAY REG 


sRESTORE VECTORS 


i 

sHAS INITIALIZATION BEEN PERFORMED 

;BR IF YES 

sIF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 


;TYPE TITLE MESSAGE 

sCHECK FOR SOFT SWR 

sSTORE STARTING SWITCHES 

:IS IT RUNNING IN AUTO MODE? 

;BR IF NO 

sIF YES, CLEAR SWITCHES 

3;IF SWOO*1, QUESTIONS ARE ASKED. 


sARE ANY DEVICES SELECTED? 
;8R IF YES 

sNO DEVICES SELECTED. 
sSTOP THE SHOW 





CZOMC 


MACRO V 





04.00 


PROGRAM INITIALIZATION 


- 


010512 
001324 


001236 


002674 





SEQ 24 
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AND START UP. 


BR .-2 :DISQUALIFY CONTINUE SWITCH 
17$: JSR PC ,AUTO. SIZE ;GO DO THE AUTO SIZE 
16$: TSTB INIFLG sFIRST TIME? 
BEQ 2i$ ;BR IF YES 
big ica ;IF USING SAME PARAMETERS DONT TYPE MAP 
001236 BIT aBIT 16172, STRTSW;IS TEST NO. OR LOCK SELECTED 
BEQ 24% ;IF NO THEN TYPE STATUS 
BR i$ VIF YES DO NOT TYPE STATUS 
21%: COM INIFLG ;SET FLAG 
243: TYPE . XHEAD ;TYPE HEADER 
MOV 90M .MAP,R4 ;SET POINTER 
5$ MOV R4,TEMPL ;SET ADDRESS 
MOV CRA), TEMP2 ;SET CSR 
BEQ sALL DONE IF ZERO 
MOV cRa)>. TEMP3 ;SET STATI 
MOV (R4)+, TEMP4 ;SET STAT2 
MOV (R4)+, TEMPS ;SET STAT3 
CONVRT ;TYPE OUT STATUS MAP 
XSTATQ $ 
BR S$ 
1$: MOV #0M.MAP ,RO :RO POINTS TO STATUS TABLE 
jf 060600 6060040666666406 06 0604600460446064064646 66040444040040040046444046445444 
;;*AUTO SIZE TEST 
;s#THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
;;*ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
;;*#CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ, DH.D0Q,0U,0UP,LK DMC ,DZ,KMC). 
33*IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE OMCi11, THE FIRST 
; aDMCLI ADDRESS IS 760070, KMC1i IS 760110. NO DEVICE SHOULD EVER BE AT 
seat a 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE 
*RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 
7 eYOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS 
33*THE NEXT TIME YOU RUN IT. PLEASE WAVE PATIENCE, THE FINAL ADDRESS 
a Pagans CAS LONG AS ALL DEVICES IN FRONT OF THE DMC‘S ARE 
;3 CORRECT). 
5 f #066 O66660460 5066666460606 000460606046660460640644046460600060404446084460444 
MOV 904, -( SP) sSAVE LOC 4 
MOV 906, -( SP) ;SAVE LOC 6 
CLR B66 sCLEAR VEC+2 
CLR TEMPS ;CLEAR FLAG 
CLR R5 3R5*0=DMC, RS=-1=KMC 
AUSTRT: MOV CRO), OMCSR sGET NEXT DMC CSR 
BEQ AUDONE 3BR IF DONE 
TST RS ;0MC OR KMC? 
BNE 1$ 3BR IF KMC 
000002 BIT #681IT15,2CR0) sCHECK FOR DMC CSR 
BNE SKIP ;SKIP IF NOT DMC 
2$ sITS A DMC SO CONTINUE 
000002 i$ BIT #BIT15.,2(RO) ;CHECK FOR KMC CSR 
BEQ SKIP sSKIP IF NOT KMC 
000004 2$ MOV @NODEV , 804 ;SET UP FOR TIMEOUT 
TST R5 sOMC OR KMC? 
BNE 33 ;BR IF KMC 
MOV #6 ,R3 sR3 IS COUNT OF DEVICES BEFORE DMC 
BR 4$ :GO ON 
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000010 
003010 
160010 


177777 
001262 


003022 


001276 


001252 


3%: 
43: 


FLOAT: 


FY: 


2s: 


i$ 
#81T15,2CRO) 
SKIP 


rs 
#681T15,2(RO) 
SKIP 


CR1) 
R1,OMCSR 
OK 


#10,R1 
FY 


#10,RO0 
CRO) ,DMCSR 
AUDONE 


XLOC ,R1 

FY 

(R2)+, -(R3) 
TEMPS 

i$ 


@ERR .SAVPC 
#-1, TEMPS 
R1,SAVR1i 


4s 


(SP)+,(SP)-+ 








SEQ 25 


sR3 IS COUNT OF DEVICES BEFORE KMC 


sR2 IS DEVICE TABLE PONTER 
sSTART WITH ADDRESS 160010 
;CHECK ADDRESS IN Ri 

sIF “ny TIMEOUT, GET NEXT ADDRESS 


: 
;ANY MORE DEVICES TO CHECK FOR? 
;BR IF YES 

;O0K ONLY OMC‘S ARE LEFT, SET UP FOR TIMEOUT 
;SAVE FIRST DMC/KMC ADDRESS 
;D0MC OR ? 

;BR IF KMC 

;CHECK FOR DMC CSR 

;SKIP IF NOT DMC 

;ITS A DMC SO CONTINUE 

sCHECK FOR KMC CSR 

;SKIP IF NOT KMC 

sCHECK DMC ADDRESS 

;sD0ES IT MATCH 

;BR IF YES 

sGET NEXT DMC ADDRESS 

300 IT AGAIN 

;SKIP TO NEXT CSR IN TABLE 
sGET NEXT CSR 

;BR IF DONE 

sELSE CONTINUE 

;SKIP TO NEXT DMC CSR 

sUPDATE EXPECTED DMC/KMC ADDRESS 
sGET NEXT DMC/KMC CSR 

;BR DONE 

;GET EXPECTED DMC/KMC ADDRESS 
3; CONTINUE 

;ON TIMEOUT, INC R2, DEC R3 
sRETURN 

sCHECK FLAG IF = 0 TYPE HEADER 
:SKIP HEADER 

sTYPEOUT HEADER MESSAGE 
sCONFIGURATION ERROR!!!! 

sSAVE PC FOR TYPEOUT 

sTYPE OUT ERROR PC 


a 
sTYPE REST OF HEADER 


* 
sSET FLAG SO IT ONLY GETS TYPED ONCE 
sSAVE Ri FOR TYPEOUT 


sTYPE CSR VALUES 
sDMC OR KMC ? 
3BR IF KMC 


; CONTINUE 


sADJUST STACK 
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002 


8 


177777 
001500 


000006 
000010 


001236 


001312 


001306 


ERRPC: 


CONTAB : 


DEVTAB: 


ioe 


13: 


27-JUN-85 13:16:37 PAGE 25-3 
ART UP. 


~— 
~ 


SAAS 


#SWOS, STRTSW 
3$ 

»MNEW 

RC 

O@SWR ,SAVACT 
2s 

MERRS 


CR1: 
CRO)+, CR1)+ 
#1000, RO 


sTEST START AND RESTART 








SEQ 26 


:BR TO GET OUT 


;0MC? 

3BR IF KMC AND ALL DONE 
:SET RS TO -1 CKMC) 

SRESET RO TO START OF TABLE 
:GO DO KMC'S 

sRESTORE LOC 6 

sRESTORE LOC 4 

sSELECT SPECIFIC DEVICES?7? 
sBR IF NO. 

sTYPE THE MESSAGE. 

;ZERO DATA LIGHTS 

sWAIT FOR USER TO TELL WHAT DEVICES TO RUN 
3IS THE NUMBER VALID? 

3BR IF R IS OK. 

‘TELL aol OF INVALID NUMBER. 


sT0 AUTOSIZE MEMORY 





CZ0mC 





PROGRAM INITIALIZATION AND START UP. 


157776 


007776 
001304 


177776 
001236 


6%: 


7$: 


2s: 


10$ 


1$: 


3$: 
43: 


5$: 
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CRO)- 
#157776,R0 
6$ 
#7776,R0 


10$ 
(SP)+,(SP)- 
#4 ,RO 


87776,RO 
#30000 ,RO 


7$ 

#37400 RO 

7$ 

#340,PS 

-: (i aaamaicaaias 
»MLOCK 


@NOP ,TTST 
ga 211ST+2 


BRW, TTST 
BRX,TTST+2 
@CYCLE ,RETURN 
oe 


oMR 
ORETURN 


;CHECK ADDRESS IN RO 
:IS IT AT LEAST 28K 
;BR IF NO 

;SAVE 2K FOR MONITORS 


sADJUST STACK 

sGET LAST GOOD ADDRESS 
;SAVE 2K FOR MONITORS 
31S IT 8K? 

;BR IF NO 

;IF 8K DON’T SAVE 2k 


sLOCK OUT INTERRUPTS 

sCHECK FOR LOCK ON TEST 

;BR IF NO LOCK DESIRED. 

sTYPE LOCK SELECTED. 

sADJUST SCOPE ROUTINE. 

sSET UP TO LOCK 

sCONTINUE ALONG. 

sPREPARE NORMAL SCOPE ROUTINE 





SEQ 27 


sLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
sSTART AT “CYCLE” FIND WHICH DEVICE TO TEST 


sIS TEST NO. SELECTED? 
;BR IF YES 


;sTYPE R 
sSTART TESTING 
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END OF PASS ROUTINE 


sEND OF PASS 

sTYPE NAME OF TEST 
sUPDATE PASS COUNT 

;CHECK FOR EXIT TO ACT-11 
sRESTART TEST 


003364 000005 -EOP: RESET sMAKE THE WORLD CLEAN AGAIN. 
003366 005037 001234 CLR LSTERR sCLEAR LAST ERROR PC 

003372 105037 001325 CLRB ERRFLG sCLEAR ERROR FLAG 

003376 005237 001230 INC PASCNT sUPDATE PASS COUNT 

003402 013777 001230 175570 MOV PASCNT,,@DISPLAY ;DISPLAY PASS COUNT 

003410 104402 005733 TYPE »MEPASS ;TYPE END PASS 

003414 104402 006072 TYPE »MCSRX ;TYPE CSR 

003420 104411 003546 CNVRT ,XCSR ;SHOW IT 

003424 104402 006100 TYPE »MVECX ;TYPE VECTOR 

003430 104411 003554 CNVRT ,XVEC ;SHOW IT 

003434 104402 006106 TYPE »MPASSX s;TYPE PASSES 

003440 104411 003562 CNVRT ,XPASS ;SHOW IT 

003444 104402. 006117 TYPE »MERRX ;TYPE ERRORS 

003450 104411 003570 CNVRT ,XERR ;SHOW IT 

003454 013700 001322 MOV MILK ,RO sGET POINTER TO PASS COUNT 
003460 013720 001230 MOV PASCNT ,(RO)+ sSTORE PASS COUNT FOR THIS DMC11 
003464 013720 001232 MOV ERRCNT ,CRO)+ s;STORE ERROR COUNT FOR THIS DMC11 
0C3470 005337 001314 DEC SAVNUM sARE ALL DEVICES TESTED? 
003474 001017 BNE RESTRT :BR IF NO. 

003476 112737 000377 001327 MOVE #377,QV.FLG sSET THE QUICK VERIFY FLAG. 
003504 013737 001310 001314 MOV DMNUM, SAVNUM sRESTORE THE COUNT 

003512 013701 000042 MOV 8442 ,R1 sCHECK FOR ACT-11 OR DDP 
003516 001406 BEQ RESTRT sIF NOT, CONTINUE TESTING 
003520 000005 RESET sSTOP THE SHOW--CLEAR THE WORLD 
003522 SENDAD : 

003522 004711 JSR PC,CR1) 

003524 000240 NOP 

003526 000240 NOP 

003530 000240 NOP 

003532 000240 NOP 

003534 012737 010060 001214 RESTRT: MOV @CYCLE .RETURN 

003542 000137 010060 JMP CYCLE 

003546 000001 XCSR: 1 

003550 006 002 BYTE 6,2 

003552 001404 OMCSR 

003554 000001 XVEC: 1 

003556 004 002 BYTE 4.2 

003560 001374 DMRVEC 

003562 000001 XPASS: 1 

003564 006 002 BYTE 6.2 

003566 001230 PASCNT 

003570 000001 XERR: 1 

003572 006 002 BYTE 6,2 

003574 001232 ERRCNT 


003576 004737 007606 -SCOPE: JSR PC ,CKSWR ;CKECK FOR SOFT SWR 
003602 010016 MOV RO, (SP) sSAVE RO ON THE STACK 
003604 032777 040000 175370 BIT #681714 ,aSWR ;"LOOP ON THIS TEST”? 





Rinwasticmekes 
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003734 
003734 
004000 
001327 


007606 
001000 


001220 
001220 





175342 


001222 


001222 
001214 


175232 


000002 


175164 


TTST: 


1$: 


2$: 


3$: 


-SCOP1: 


i$: 


TYPE: 


4$: 


1$: 


2$: 


3$: 


BEQ i$ ;sBR IF NO. CIF LOCK SWO1=1; THIS LOC =240) 

BR 3$ :GOTO 3$ CIF LOCK SWO1=1; THIS LOC =240) 

TST DONE sWAS TKCSR DONE SET? 

BEQ 3$ 3BR IF NO (LOCKED ON TEST) 

CLR DONE ;YES, CLEAR FLAG 

BR 2$ ;GO TO NEXT TEST 

BIT #SW11,9SWR sDELETE ITERATION? (QUICK PASS) 
;BR IF YES 

TSTB QV.FLG sHAVE PASSES BEECOMPLETED? 

BEQ 2$ 3BR IF QUICK PASS. 

INC LPCNT sUPDATE ITERATION COUNTER 

CMP LPCNT, ICOUNT sARE ALL ITERATIONS DONE?? 

BLOS 3$ ;BR IF NOT YET 

CLRB ERRFLG sPREPARE FOR NEW TEST 

CLR LPCNT sSTART ICOUNTER AT 0 

CLR LOCK 

MOV #20, ICOUNT sRESET ITERATIONS 

MOV NEXT RETURN ;GET NEXT TEST 

MOV (SP),RO sPOP RO OFF OF THE STACK 

POP2SP sFAKE AN “RTI” 

MOV DMCSR,R1 :R1 CONTAINS BASE DMC ADDRESS 

JMP @RETURN :GO DO THE TEST 

1407 

437 

0 


JSR PC .CKSWR sCHECK FOR SOFT SWR 

BIT @SWO9, ASWR sIS SWO9=1(SET)? 

BEQ i$ sBR IF NOT SET. 

TST LOCK 

BEQ i$ 

MOV LOCK ,CSP) sGOTO THE ADDRESS IN LOCK. 
RTI :;GO BACK. 


sTELETYPE OUTPUT ROUTINE 


;SAVE RS ON THE STACK. 
sGET ADDRESS OF MESSAGE. 


TST LG ;SOFT SWR MESSAGE? 
BNE i$ sIF YES TYPE IT OUT REGARDLESS OF Swi2 
BIT #SW1i2,aSWR sINHIBIT ALL PRINT OUT?? 
3$ :BR IF NO PRINT OUT WANTED (SW12=1) 
TSTB CR5) ;IS NUMBER MINUS? (MSB=1(BIT7)) 
BPL 2$ ;BR IF NUMBER IS PLUS 
TYPE »MCRLF sTYPE A CR/LF! 
TSTB aTPCSR ;TTY READY? 
BPL 23 ;BR IF NO. 
MOVB CR5)+,aTPDBR sPRINT CURRENT CHAR. 
BNE ;IF NOT ZERO KEEP PRINTING! 
MOV (SP)+,R5 ;END OF OUTPUT. RESTORE R5 
RTI ;GO HOME 
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005666 


175046 


2s: 


- INSTE: 


INSTR2: 


-PARAM: 





R3,-(SP) 
R4,-(SP) 


@4(SP),.MSG 


#2,4(SP) 


GINBUF ,R4 


#7 ,R3 
aTKCSR 


i$ 
OTKOBR , CR4) 
#200, (R4) 
CR4)+ ° #15 


INSTR2 
aTPCSR 


2$ 
STKDBR ,ATPDBR 
R3 


1$ 
(SP)+,R4 
(SP)+,R3 


MQM 

R3, -(SP) 
R4,-CSP) 
-INST1 
CSP)+,R4 
(SP)+,R3 


;SAVE R3 ON STACK 
;SAVE R4& ON STACK 


sRESTORE R4 
sRESTORE R3 


sCONVERT ASCII STRING TO OCTAL 








SEQ 30 
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CZOMC 
GENERAL UTILITIES (TYPEOUT, 


004370 


000002 
004373 


001276 


ERROR, SCOPE, ETC) 


PAREPR: 


BR 
INSTER 
BR 


1$ 
PARAM1 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 


LIMITS: CMP RS ,HILIM 
BHI PARERR 
CMP RS ,LOLIM 
BLO PARERR 


sSTORE NUMBER AT SPECIFIED ADDRESS 
MOV DEVADR ,R4 


1%: MOV R5,(CR4)+ 
ADD #2,R5 
DECB ADRCNT 
BNE i$ 
MOV CSP)+,R4 
MOV (SP)+,R5 
RTI 

LOLIM: 0 

HILIM: 090 

DEVADR: 0 

LOBITS: 0 

ADRCNT=LOBITS+1 
sSAVE PC OF TEST THAT FAILED AND RO-RS 
a “see 2 ase ee wee ecene ee ee een ae eeaeeen eee neeececee 

-SAVOS: MOV 4( SP), SAVPC sSAVE R7 CPC) 
sSAVE RO-RS 

SVOS: MOV RS ,SAVRS sSAVE R5 

R2,SAVR2 sSAVE R2 

MOV R1,SAVR1 ;SAVE Ri 
MOV RO, SAVRO sSAVE RO 
RTI sLEAVE. 
sRESTORE RO-RS 

-RESOS: MOV SAVRO, RO sRESTORE RO 
MOV SAVR1,R1 sRESTORE Ri 
MOV VR2,R2 sRESTORE R2 
MOV SAVR3,R3 sRESTORE R3 
MOV SAVR4, sRESTORE R4 
MOV VR5, sRESTORE R5S 
RTI sLEAVE 


sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 





SEQ 31 
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YPEOUT, ERROR 
1 005672 
010046 
010146 
010346 
010446 
010546 
otanet 000012 
12137 004710 
112137 004712 
112137 004713 
013137 004714 
122737 900003 
001003 
042737 177400 
013704 004714 
113705 0047 
012700 001416 
010403 
042703 177770 
062703 000060 
110320 
41 

000241 
000241 
005305 

1362 
012703 007544 
114023 
105337 004712 
001374 
105737 004713 
001 
112723 
105337 004713 
001373 
105013 
104402 007544 
005337 004710 
001313 

12605 
012604 
012603 
012601 
012600 
000002 
000000 
000060 
004713 


000012 


004712 
004714 
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S ETC) 


-CONVR: TYPE 
-CNVRT: MOV 


0 
*CHRCNT +1 








»MCRLF 
RO,-C(SP) 
R1i,-CSP) 
R3,-CSP) 
R4,-CSP) 
R5, -(SP) 
gene 


oa 
#177400, BINWRD 
NWRD 


R4, 
#177770,R3 
#060 .R3S 
R3.CRO)+ 
R4 


R4 

RS 

3$ 

MMDATA ,R3 
-C(RO), CR3)- 
CHRCNT 


sTRAP DISPATCH SERVICE 








SEQ 32 


meee 


: 
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177001 
001330 
000000 


007606 
010000 


174220 


000207 
020000 


001234 


001234 
001325 


174220 


174212 
174174 


001325 


. TRPSR: 


TRPOK: 


-HLT: 


XBX: 


1$: 


TYPMSG: 


1%: 





SEQ 33 


sARGUMENT OF TRAP IS EXTRACTED 
USED AS OFFSET TO OBTAIN POINTER 


; AND 
:T0 SELECTED SUBROUTINE 


MOV (SP),-{SP) 
SUB #2,(SP) 
MOV ac SP), (SP) 
ASL (SP) 
BIC #177001, (SP) 
ADD #. TRPTAB, CSP) 
MOV ac SP). CSP) 
JMP ac + 
;ERROR HANDLER 
3 “se «<+e eee eee e 
JSR PC ,CKSWR 
BIT #SW12,2SWR 
BEQ x 
TSTB STPCSR 
BPL XBX 
MOVB #207 , @TPDBR 
BIT #SW13,9SWR 
BNE HALTS 
CMP (SP) .LSTERR 
BEQ i$ 
MOV (SP), LSTERR 
CLRB ERRFLG 
SAVOS 
MOV CSP),RS 
SUB 2.R5 
MOV (R5).R4 
ASL Re 
ADO CRS) .R4 
ASL RG 
BIC #177001,R4 
ADD #. ERRTAB .R4 
MOV R4)+, ERRMSG 
MOV (R4)+,DATAHD 
MOV (R4) ,DATABP 
TST ERRFLG 
BEQ TYPMSG 
TST DATASP 
BNE TYPDAT 
TYPE »MCRLF 
TYPE eMCRLF 
TST —« LOCK 
BEQ i$ 
TYPE »MASTEK 
TYPE »MTSTN 

T  ,XTSTN 
TYPE P C 
CNVRT »ERTABO 
TYPE 
MOVB #-1,ERRFLG 
TST ER 
BEQ WRKO .FM 





;GET PC = RETURN 
;=PC OF TRAP 

SGET TRP 

sMULTIPLY TRAP ARG BY 2 

;CLEAR UNWANTED BITS 

;POINTER TO SUBROUTINE ADDRESS 
;SUBROUTINE ADDRESS 

:GO TO SUBROUTINE 


;CHECK FOR SOFT SWR 

;BELL ON ERROR? 

;BR IF NO BELL 

sTTY READY. 

;DON‘T WAIT IF TTY NOT READY. 
;PUSH A BELL AT THE TTY 
;DELETE ERROR PRINT OUT? 

;BR IF NO PRINT OUT WANTED. 
sWAS THIS ERROR FOUND LAST TIME? 
;BR IF YES 

sRECORD BEING HERE 

sPREPARE HEADER 

sSAVE ALL PROC REGISTERS 
;GET THE PC OF ERR 

;GET ADDRESS OF TRAP CALL 
;GET HLT ao 


sGET ERROR MESSAGE 

;GET DATA HEADRER 

;GET DATA TABLE 

;TYPE HEADREER 

;BR IF YES 

sDOES DATA TABLE EXIST? 
;6R IF YES. 


;GIVE A CR/LF 
7NO MORE HEADER UNLESS NO DATA TABLE. 
7. Lien AN ERROR MESSAGE? 





—_ 
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012737 
000000 
000777 


012737 


005350 


000042 


173716 
173706 
001214 


000024 


000024 


COPE, ETC) 





SEQ 34 


TYPE ; TYPE 
ERRMSG: O ; ERROR MESSAGE 
WRKO .FM: ; 
TST DATAHD ;DATA HEADER? 
BEQ TYPDAT ;BR IF NO 
TYPE ; TYPE 
DATAHD: 0 ; DATA HEADER 
TYPDAT: TST DATABP ;DATA TABLE? 
BEG RESREG ;BR IF NO 
CONVRT ; SHOW 
DATABP: 0 ; DATA TABLE 
RESREG: RESOS sRESTORE PROC REGISTERS 
HALTS: a rca ;IF ACT-11 AUTOMATIC MODE, HALT!! 
TST @SWR sHALT ON ERROR? 
BPL EXITER ;BR IF NO HALT ON ERROR 
1$: PUSHRO ;SAVE RO 
MOV 2CSP),RO ;SHOW ERROR PC IN DATA LIGHTS 
HALT ;HALT 
POPRO ;GET RO 
EXITER: INC ERRCNT ;UPDATE ERROR COUNT 
BIT #SWO8 , OSWR ;GOTO TOP OF TEST? 
BNE i$ :;BR IF YES 
BIT #SW10, OSWR sGOTO NEXT TEST? 
BEQ 2$ ;BR IF NO 
MOV NEXT ,RETURN ;SET FOR NEXT TEST 
i$: MOV @STACK ,SP sRESET SP 
MOV DMCSR,R1 ;SET UP Ri 
JMP SRETURN sGOTO SPECIFIED TEST 
2s: RTI ;RETURN 
ERTABO: 1 
-BYTE 6.2 
SAVPC 
XTSTN: 1 
Bi 3.2 
sENTER HERE ON POWER FAILURE 
3 wae eee nt ee een eaeneneeneneanaenanaeaenane 
-PFAIL: 
MOV @RESTART ,24 ;SET UP FOR POWER UP TRAP 
MALT sHALT ON POWER DOWN NORMAL 
sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
RESTAR: 


MOV #.PFAIL 24 
MOV @STACK ,SP 
MOV DMCSR,R1 
CLR TEMP 

INC TEMP 

BNE -—«—« -4 

TYPE »MPF AIL 
CNVRT ,PFTAB 
CLRB ERRFLG 





;SET UP FOR POWER FAILURE 
sRESET THE STACK POINTER 
sRESTORE Ri 

sREADY FOR TIMMER 

sPLUS ONE TO THE TIMER! 
:BR IF MORE TO GO 

;TYPE THE MESSAGE 

sTELL WHAT TEST TO RETURN TO. 
START CLEAN 











—< 
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005414 005037 001234 CLR LSTERR serene nwnnnn 

005420 005011 CLR CR1i) ;CLEAR MAINT BITS 

005422 104412 MSTCLR sSTART CLEAN UP OF DEVICE 

005424 000177 173564 JMP @RETURN :START DOING THAT TEST AGAIN. 
000001 PFTAB: 1 

005432 003 002 BYTE 3,2 

34 001226 TSTNO 

005436 DELAY: 

005436 012777 000020 173746 MOV #20, 3 MP04 

005444 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121111 121111 sPOKE CLOCK DELAY BIT 

005450 1$: 

005450 104414 ROMCLK s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

005452 121224 121224 ;PORT4_IBUS#11 

005454 032777 000020 173730 BIT #B2T4.50MP04 :IS CLOCK BIT SET? 

005462 001772 BEQ 1% ;BR IF NO 

005464 000002 RTI 

005466 -MSTCLR: 

005466 152777 000100 173712 BISB #BIT6.3DMCSRH £;SET MASTER CLEAR 

005474 142777 000300 173704 BICB @BIT6!BIT7,@DMCSRH ;CLEAR MASTER CLEAR AND RUN 

005502 000002 RTI ;RETURN 

005504 -ROMCLK: 

005504 152777 000002 173674 BISB #BIT1,8DMCSRH ;SET ROMI 

005512 013677 173676 MOV 8CSP)+,3DMPO06  ;LOAD INSTRUCTION IN SEL6 

005516 062746 000002 ADD #2,-(SP) ;ADJUST STACK 

005522 032777 000100 173452 BIT #SWO6 , ASWR sHALT IF SWO6 =1 

005530 001401 BEQ i$ :BR IF SWO6 =0 

005532 000000 HALT sHALT BEFORE CLOCKING INSTRUCTION 

005534 152777 000003 173644 i$: BISB #BIT1!BITO,SDMCSRH ;CLOCK INSTRUCTION 

005542 142777 000007 173636 BICB SBIT2:BITL!BITO,S0MCSRH ;CLEAR ROMO, ROMI, STEP 

005550 000002 RTI 

005552 -DATACLK: 

005552 013637 001416 MOV aC SP)+, TEMP sPUT TICK COUNT IN TEMP 

005556 062746 000002 AOD $2,-(SP) sADJUST STACK 

005562 152777 000020 173616 i$: BISB @BIT4,@DMCSRH ;SET STEP LU 

005570 027777 173610 173606 CMP @OMCSR,@DMCSR ;WASTE TIME 

005576 142777 000020 173602 BICB #BIT4,@0MCSRH ;CLEAR STEP LU 

005604 005337 001416 DEC TEMP sDEC TICK COUNT 

005610 001364 BNE i$ ;BR IF NOT DONE 

005612 000002 RTI ;RETURN 

005614 3$ BLKW 1 

005616 . TIMER: 

005616 013637 001416 MOV @( SP )+, TEMP sMOVE COUNT TO TEMP 

poe a 062746 000002 Fe ADD #2,-CSP) sADJUST STACK 

005626 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

005630 021364 021364 ;PORT4_IBUSs REG11 

005632 032777 000002 173552 BIT $2 ,8DMP04 31S PGM CLOCK BIT CLEAR? 

005640 001772 BEQ i$ 3;BR IF YES 

005642 2$: 

005642 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

005644 021364 021364 sPORT4_IBUS« REG11 














CZDMC MACRO V04.00 27-JUN-85 13:16:37 PAGE 26-8 SEQ 36 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


005646 032777 000002 173536 BIT #2 ,9DMPO4 sIS PGM CLOCK BIT SET? 
005654 001372 BNE 2$ ;BR IF YES 

005656 005337 001416 DEC TEMP sDEC COUNT 

005662 001361 BNE i$ ;BR IF NOT DONE 
005664 900002 RTI RETURN 


005666 040 040 077 MQM: -ASCIZ / 2/ 

005672 015 012 000 MCRLF: .ASCIZ <15><12> 

005675 377 120 127 MPFAIL: .ASCIZ <377>/PWR FAILED. RESTART AT TEST / 
005733 377 105 116 MEPASS: .ASCIZ <377>/END PASS CZDMC / 

005755 377 122 000 MR: -ASCIZ <377>/R/ 

005760 377 116 117 MERR2: .ASCIZ <377>/NO DEVICES PRESENT./ 

006005 377 111 116 MERRS: .ASCIZ <377>/INSUFFICIENT DATA!/ 

006031 377 124 105 MISTPC: .ASCIZ <377>/TEST PC-/ 

006043 377 114 117 MLOCK: .ASCIZ <377>/LOCK ON SELECTED TEST/ 
006072 103 123 122 MCSRX: .ASCIZ /CSR: / 


006142 052 000 MASTEK: .ASCIZ /#/ 
006144 377 123 105 MNEW:  .ASCIZ <377>/SET SWITCH REG TO OMC11’S DESIRED ACTIVE./ 


006224 212 040 040 XHEAD: .ASCII <212>/ MAP OF DMC11 STATUS/ 

006263 377 040 040 eASCII <377>/ 0 = wee nn wenn en-------- / 

006322 2i2 040 040 ~ASCII <212>/ PC CSR STAT1 STAT2 STAT3/ 
006374 377 055 055 eASCIZ <377>/------ 9 -nene- eene-- 0 ee---- 0 --e--- / 
006450 377 110 117 NUM: -ASCIZ <377>/HOW MANY DMC11'S TO BE TESTED?/ 

006510 377 103 123 CSR: -ASCIZ <377>/CSR ADDRESS?/ 

006526 377 126 105 VEC: ~ASCIZ <377>/VECTOR ADDRESS?/ 


006547 377 102 122 PRIO: .ASCIZ <377>/BR PRIORITY LEVEL? (4,5,6.7)?2/ 
006606 377 111 106 CRAM: -ASCIZ <377>/IF DMC HAS CRAM (M8204) TYPE “Y”, IF CROM (M8200) TYPE “N” ?/ 
006704 377 127 110 MODU: .ASCIZ <377>/WHICH LINE UNIT? IF NONE TYPE “N”, IF M8201 TYPE “1”, IF M8202 TYPE “2 


“9/ 
007016 377 123 127 LINE:  .ASCIZ <377>/SWITCH PAC@1 CDDCMP LINE #)?/ 
007054 377 123 127 6M: -ASCIZ <377>/SWITCti PAC@2 (BM873 BOOT ADD)?/ 
007114 377 111 123 CONN: .ASCIZ <377>/IS THE LOOP BACK CONNECTOR ON?/ 
007154 377 116 117 WNOACT: .ASCIZ <377>/NO DEVICES ARE SELECTED/ 
007205 377 012 123 SWMES: .ASCIZ <377><12>/SWR= / 
007215 116 105 127 SWMESI: .ASCIZ /NEW? / 
007223 377 377 104 CONERR: .ASCIZ <377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS PC: / 
007277 377 105 130 CNERR: .ASCIZ <377>/EXPECTED FOUND/ 
007320 040 050 104 DMCM: .ASCIZ / (DMC) / 
007330 040 050 113 KMCM:  .ASCIZ / (KMC) / 
sa tg 007340 377 104 115 SPEED: .ASCIZ <377>/DMC11-ARCREMOTE,LOW SPEED) OR DMC11-ALC(LOCAL,HIGH SPEED) TYPE “R” OR ” 
-EVEN 
007454 000005 XSTATQ: 5 
007456 006 003 BYTE 6,3 
007460 001246 TEMP 1 
007462 006 003 -BYTE 6,3 
007464 001250 TEMP2 
007466 006 003 -BYTE 6,3 
007470 001252 TEMPS 
007472 006 003 BYTE 6,3 
007474 001254 TEMP4 
007476 006 002 BYTE 6,2 
007500 001256 wins TEMPS 





-— 
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007502 
007544 


000176 
171362 


177777 
000007 


000207 


177777 


177777 
007205 


000007 


177770 


002002 


171200 
010016 


sBUFFERS FOR INPUT-OUTPUT 


sROUTINE USED TO CHANGE SOFTWARE SWITCH 
sREGISTER USING THE CONSOLE TERMINAL 


SCOPE, ETC) 
INBUF: O 
= +40 
MDATA: 0 
.=,+40 
001202 CKSWR: CMP 
BNE 
TSTB 
BPL 
003734 MOV 
171346 2$: CMP 
BEQ 
171336 CMP 
BNE 
i$: MOV 
MOV 
MOV 
010016 MOV 
CKSWR1i: CLR 
MOV 
TYPE 
CKSWR2: CNYRT 
SOF TSW 
CKSWR3: TYPE 
CKSWR4: JSR 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BE 
CMP 
BEQ@ 
CLR 
BIC 
ASL 
ASL 
ASL 
BIS 
BR 
000006 4%: MOV 
S$: TST 
BNE 
MOV 
6$: CLR 
MOV 
MOV 
MOV 
CKSWRS: RTS 


#SWREG , SWR 
CKSWRS 
@aTKCSR 

2s 
#-1,DONE 
oo 
#207 ,@TKDBR 
CKSWRS 

R2, -(SP) 
R3, -(SP) 
R4, -(SP) 
#-1,SWFLG 
R2 


#-1,R4 
» SWHES 


R4 

#177770,R3 
R2 

R2 

R2 

R3 ,R2 

CKSWR4 

@. START ,6(SP) 





;BR IF 


SET FLAG 
;WAS CTRL G TYPED? (7 BIT ASCII) 
;BR IF YES 
;WAS “ye G TYPED? (8 BIT ASCII) 
;BR IF NO 


sSET SOFT TYPE OUT FLAG 
sCLEAR NEW SWR CONTENTS 
;SET FLAG TO ALL ONES 
sTYPE “SWR= 

sTYPE OUT PRESENT CONTENTS 
s0F SOFT SWITCH REGISTER 
sTYPE “NEW? “ 

s;GET RESPONSE 


TRL U? 
3BR IF YESCSTART OVER) 
sIF CNTL G GET NEXT CHAR 


sIT MUST BE A DIGIT SO CLR FLAG 
sONLY 0-7 ARE LEGAL SO MASK OFF BITS 
sSHIFT R2 3 TIMES 


sADD LAST DIGIT 

sGET NEXT CHARACTER 

sLF WAS TYPEO SO GO TO START 
3IS FLAG CLEAR? 

sIF NOT DON’T CHANGE SOFT 





SEQ 37 


SWR 
;IF YES THEN WRITE NEW CONTENTS TO SOFT SWR 


sCLEAR TYPEOUT FLAG 
sRESTORE R4 
sRESTORE R3 
sRESTORE R2 

;RETURN 


CZOMC 
GENERAL 


o- 
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171160 


171154 
171152 


171146 
000200 


002 


SWFLG: 


SOF TSW: 


STKCSR 
4 


STKDBR .R3 
STPCSR 


at 
R3,@TPDBR 
#B1T7,R3 
PC 


6.2 








SEQ 38 
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r 





013737 
060037 
013737 
060037 
013737 
060037 
032737 
001450 


005737 
001045 


001374 


001406 
001410 
001412 
001414 


001376 
001400 
001402 


001236 


27-JUN-85 13:16:37 PAGE 27 
ERROR, SCOPE, ETC) 


CYCLE: 


13%: 


23: 


43; 





sROUTINE USED TO “CYCLE” THROUGH UP TO 16 DMC11'S 

; THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
sAND RUNS THE SPECIFIED DMCi1'S. THIS ROUTINE «MUSTs 

sBE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

sSETUP NECESSARY. 


TST DMACTV sARE ANY DMC11'S TO BE TESTED? 
BNE OK. 


i$ ;BR IF 
TYPE »NOACT sNO OMC11'S SELECTED!! 
HALT sSTOP THE SHOW. 
BR --2 sDISQUALIFY CONT. SW. 
CLC sCLEAR PROC. CARRY BIT. 
ROL RUN sUPDATE POINTER 
ADC sCATCH CARRY FROM RUN 


RUN 
ADD 04 MILK IN 
ADD #10, CREA sUPDATE ADDRESS POINTER. 


M 
CMP 0M. MAP+200, CREAM 
sKEEP GOING; NOT ALL TESTED FOR. 
;RESET ADDRESS POINTER. 
sRESET PASS COUNT POINTER 
ee Lisa ONE ACTIVE? 


$ NO 

sGET ADDRESS POINTER 
sGET PASS COUNT POINTER 
sLOAD SYSTEM CTRL. REG 
CRO) ,OMRVEC sLOAD VECTOR 

sCLEAR UNWANTED BITS 
MOV CRO)+, STATI sLOAD STAT1 

MOV sLO0AD STAT2 


MOV CRO)+, STATS sLOAD STATS 

MOV (R2)+,PASCNT sLOAD PASS COUNT 
MOV CR2)+, ERRCNT sLOAD ERROR COUNT 
MOV #2 ,RO sSAVE CORE THIS WAY! 
MOV OMCSR , DMCSRH 

INC DMCSRH 

MOV DMCSRH,.OMCTL 

INC DMCTL 

MOV - DMCTL ,OMPO4 

ADD RO, | 

MOV OMPO4 , OMP06 

ADD RO ,.OMPO6 

MOV OMRVEC .DMRLVL ;PTY LVL 

ADD RO .DMRLVL : 

MOV OMRLVL,.DMTVEC ;TX VEC 

ADD RO ,.OMTVEC ; 

MOV DMTVEC .OMTLVL ;TX LVL 

ADO RO, OMTLVL 

BIT @SW01, STRTSW 3IS TEST NO. SELECTED 
BEQ 7$ :BR IF NO 

TST aeee sRUNNING IN AUTO MODE? 
BNE 78 3BR IF YES 


i aaa a arma caaaeeemacaaec 
SEQ 39 
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010362 104402 005672 TYPE eMCRLF 
010366 104403 INSTR ;GET TEST NO. 
010370 006130 MTSTN 
010372 104405 PARAM 
010374 000001 i 
910376 001000 1000 
10400 001226 TSTNO 
010402 BYTE 0 
010403 001 BYTE 1 
010404 012700 012320 MOV @TST1,RO 
010410 022710 53: CMP (PC)+, (RO) ;CMP FIRST WORD TO 12737 
010412 012737 MOV (PC)+, aC PC)- 
010414 001020 BNE 6$ ;B8R IF NOT SAME 
010416 023760 001226 0900002 CMP TSTNO, 2(RO) ;DO0ES TSTNO MATCH? 
010424 001014 BNE 6$ ;BR IF NO 
010426 022760 001226 000004 CMP STSTNO,4(RO) :I1S LAST WORD OK? 
010434 001010 BNE 6$ ;BR IF NO 
010436 010037 001214 MOV RO ,RETURN 317 IS A LEGAL TEST SO DO IT 
010442 104402 005755 TYPE MR 
010446 042737 000002 001236 BIC @SWO01,.STRTSW 
010454 000412 BR 8$ 
010456 005720 6%: TST (RO)+ :POP RO 
010460 020027 033776 CMP RO, @TLAST+10 sAT END YET? 
010464 001351 BNE S$ ;BR IF NO 
010466 104402 005666 TYPE MQM sYES ILLEGAL TEST NO. 
010472 000730 BR 4$ sTRY AGAIN 
010474 012737 012320 001214 /7$: MOV @TST1,RETURN sPREPARE RETURN ADDRESS 
010502 013701 001404 8$: MOV DMCSR,R1 7R1 = BASE DMC11 ADDRESS 
010506 000177 170502 JMP SRETURN :GO START TESTING. 
sROUTINE USED TO “AUTO SIZE” THE DMCii 
:CSR AND VECTOR. 
sNOTE: THE CSR MAY BE ANY WHERE IN THE FLOATING 
; ADDRESS RANGE (160000: 164000) 
3 AND THE VECTOR MAY BE ANY WHERE IN THE 
3 FLOATING VECTOR RANGE (300:770) 
é 
010512 AUTO.SIZE: 
010512 000005 RESET sINSURE A BUS INIT. 
010514 012702 001500 CSRMAP: MOV @DM.MAP ,R2 sLOAD MAP POINTER. 
010520 005022 1$: CLR (R2)+ . sZERO ENTIRE MAP 
019522 022702 001700 CMP #0M.END,R2 ;ALL DONE? 
010526 001374 BNE ;BR IF NO 
010530 005037 001310 CLR DMNUM sSET OCTAL NUMBER OF DMC11'S TO O 
019534 012702 001500 MOV #DM. MAP ,R2 sR2 POINTS TO DMC MAP 
0190540 005037 001306 CLR DMACTV ;CLEAR ACTIVE 
010544 032737 000001 001236 BIT #SWOO, STRTSW s QUESTIONS? 
010552 001002 BNE 7.) sBR IF YES 
010554 000137 011252 JMP 7$ : 3IF NO SKIP QUESTIONS 
O1 012737 000001 001256 MOV #1, TEMPS ;START WITH 1 
010566 104403 INSTR 
010570 006450 | 
0190572 104405 PARAM 
010574 000001 





SEQ 40 


~ee- 
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MACRO V04.00 


001252 
000 


001252 001310 
005672 


001256 


001254 


001254 


012266 
000024 
000027 


000011 


170777 


012266 
000131 


000116 


012266 


10$: 


50$: 


40$: 
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16. 

TEMPS 
-BYTE 
-BYTE 


i 
TEMPS, OMNUM 
-MCRLF 


TEMPS 


i 
TEMPS ,(R2)+ 


1 
TEMP4 , (R2) 
PC ,INTTY 
24,R3 

50$ 
27,R3 
50$ 

#11,R4 

R3 

R4 


.-4 
#170777,R3 
R3,CR2) 

8s 


PC, INTTY 





;DMNUM = HOW MANY 


;TYPE WHICH DMC IS BEING DONE 


sTEMPS IS WHICH DMC 


sSTORE CSR IN MAP 


sSTORE VECTOR IN 


MAP 


sASK WHAT BR LEVEL 


s;GET RESPONSE 
; 
:BR IF LESS THAN 


4 


: 
3BR IF GREATER THAN 7 


sR4 = NUMBER OF 
sSHIFT R3 LEFT 

sDEC SHIFT COUNT 
;BR IF NOT DONE 


SHIFTS 


sBIC UNWANTED BITS 
;sPUT BR LEVEL IN STATUS MAP 


; CONTINUE 


sRESPONSE IS OUT OF LIMITS 


7TRY AGAIN 


sDOES OMC HAVE CRAM? 


:GET REPLY 

; YES 

3NO 

sNOT A Y OR N 


sTYPE “?” 
sASK AGAIN 


3D0MC11-AR OR DMC11-AL? 


;GET RESPONSE 





SEQ 41 


ee 


MACRO V04.00 27-JUN-85 13:16:37 PAGE 27-3 


011010 
011014 


022703 


000122 
000114 


600002 
100000 
000022 
000116 


010000 
020000 
012266 


000131 
000116 


040000 
040000 


001254 


000004 


Cc 
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41%: 


9$: 
16%: 


32$: 


31$: 
30$: 


17$: 


18$: 
19$: 





#122,R3 
16$ 
#114 ,R3 
41$ 


40$ 
#BIT1,4(R2) 
16$ 
#6IT15,(R2) 
PC,INTTY 
#21,R3 

30$ 

#22,R3 

31$ 

#116,R3 

32$ 


16$ 
@BIT12,(R2)+ 
(R2)+,CR2)+ 


33$ 
#61T13,(R2) 
PC ,.INTTY 
#131,R3 

17$ 

#116 ,R3 

18$ 


30$ 
9$ 


1 


: 
TEMP4, (R2)+ 


:IS IT R 

3;BR IF REMOTE 
:IS ITL 

;BR IF LOCAL 


;TRY AGAIN 

sSET BIT1 IN STAT3 
; CONTINUE 

sSET BIT 15 IF CRAM 


;ASK WHICH LINE UNIT 

sGET REPLY 

, °5* 

s "2° 

;"N" 

;IF NOT A 1,2 OR N TYPE “2” 
;TRY AGIAN 

:SET BIT 12 IN STAT2 IF NO LU 
:POP OVER STAT2 AND STAT3 
;SET BIT 13 IN STAT2 IF M8202 
;ASK IF LOOP-BACK IS ON 

;GET REPLY 

3Y 

3N 

:IF NOT Y OR N TYPE "2" 

;TRY AGAIN 

; TURNAROUND IS CONNECTED 


sNO TURNAROUND 


sSTORE SWITCH PAC IN MAP 





SEQ 42 





CZOMC 
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011420 


052762 
010122 


001254 
001252 


010612 
011702 


160000 
011774 


016461 


000004 


000004 


000006 
000004 


33%: 
34%: 
7$: 
2s: 


21%: 


15$: 
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SEQ 43 


MOVB TEMP4 ,(R2)+ ;STORE SWITCH PAC IN MAP 
TST (R2)+ sPOP OVER STAT3 
DEC TEMPS :DEC DMC COUNT 
BEQ 34$ :BR IF DONE 
JMP 12$ ; JUMP IF NOT 
JMP 13% ; CONTINUE 
MOV #160000,R1 ;SET FOR FIRST ADDRESS TO BE TESTED 
MOV 963,804 ;SET FOR NON-EXISTANT DEVICE TIME OUT 
CLR (Ri) ;CLEAR SELO 
TST (R1) :IF DMC11i DMCSR S/B O 
BNE 3$ ;IF NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DMC1i1 
CLR 6(R1) ;CLEAR SEL6 
TST 6(R1) :I1— DOMCiil THEN DMRIC S/B =0! 
BNE 3$ ;BR IF NOT DMCi1 
MOV #BIT10,(R1) ;SET ROMO 
CLR 4(R1) ;CLEAR SEL4 
MOV #125252,6(R1) sWRITE THIS TO SEL6 
BIS #B1IT13,(R1) ;sWRITE IT! 
CMP #125252,4(R1) ;WAS IT WRITTEN? 
BNE 2i$ ;IF NO IT IS NOT CRAM 
BIS #B1IT15,2(R2) ;SET BITi15 IF CRAM 
BR 22$ 
MOV SBIT9,(R1) ;SET ROMI 
MOV #100430,6(R1) ;PUT INSTRUCTION IN SEL6 
MOV #BIT9!BIT8,CR1) ;CLOCK — CMICRO PROC PC TO 0) 
MOV #BIT10,(R1) 7S 
CMP #016472,6(R1) :IS IT ST OCAL CROM? 
BEQ 23% ;BR IF YES 
CMP #016461,6(R1) sIS IT REMOTE CROM? 
BEQ 22$ :BR IF YES 
CMP #-1,6(R1) ;NO CROM? t 
BEQ 22$ ;BR IF YES 
BR sNOT A DMC 
23%: BIS 6BIT1,6(R2) ‘SET BIT 1 IN STATS 
sAT THIS POINT ‘ Is ASSUMED THAT Ri HOLDS A DOMC1i1 CSR ee 
2 MOV 1,(CR2)+ sSTORE CSR IN CORE TABLE 
MOV wits. CR1) sCLEAR LINE UNIT LOOP 
CLR 4(R1) ;CLEAR PORT4 
MOV #122113,6C(R1i) sLOAD INSTRUCTION CCLR DTR) 
BIS #6178, (R1) sCLOCK INSTRUCTION 
MOV #021264 .6(R1) ;LOAD INSTRUCTION 
BIS BITS, CR1i) ;CLOCK INSTRUCTION 
CMPB #377,4(R1) 31S IT ALL ONES? 
BNE ~+10 ;6R IF NO 
= oe etna? ;IF YES, NO LINE UNIT, SET STATUS BIT 
BIT @BIT1,4(R1) 31S SWITCH A ONE? 
BEQ .*10 ;BR IF M8201 
BIS #BIT13!B8IT14,(CR2) ;MB8202 ASSUME CONNECTOR 
BR 20$ sCONNECTOR ON) 
BIT #BIT3,4(€R1) ‘IS MRDY SET 
BNE 20% :BR IF M8201 NO CONNECTOR CON LINE) 
MOV #BIT6,4(R1i) 3LOAD PORT4 
MOV #122113,6(R1) ;LOAD INSTRUCTION 
BIS IT8, (Ri) ;CLOCK INSTRUCTIONCSET DTR) 
MOV #021264,6(R1) ;LOAD INSTRUCTION 
BIS #BIT8,CR1) ‘CLOCK INSTRUCTIONCREAD MODEM REG) 





44 
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011564 032761 000010 000004 BIT #B1IT3,4(R1) 31S MRDY SET NOW? 
011572 001402 BEQ 203 ;BR IF NO CONNECTOR 
011574 052712 040000 BIS #BIT14,(R2) :SET STATUS BIT FOR CONNECTOR 
011600 005722 20%: TST (R2)+ ;POP POINTER 
011602 012761 021324 000006 MOV #021324,6(R1)  ;PUT INSTRUCTION IN PORT6 
011610 012711 001400 MOV SBIT9!BITS.CRi) ;PORT4_LU 15 
011614 1561 000004 BISB 4(R1),(R2)+ s;STORE DOCMP LINE # IN TABLE 
011620 012761 021344 000006 MOV #021344,6(R1)  ;PORT6_INSTRUCTION 
011626 012711 001400 MOV #BITS!BIT9,CR1) ;CLOCK INSTR. 
011632 156122 BISB 4(R1),(R2)+ ;STORE BM873 ADD IN TABLE 
011636 005722 TST (R2)+ ;sPOP OVER STATS 
011640 005011 CLR (R1) ;CLEAR ROMI 
021642 005237 00131 INC DMNUM sUPDATE DEVICE COUNTER 
011646 022737 900020 001310 CMP #20, DMNUM sARE MAX. NO. OF DEV FOUND? 
011654 001412 BEQ 13$ sYES DON’T LOOK FOR ANY MORE. 
011656 005011 3%: CLR (R1) s;CLEAR BIT 10 
011660 005061 000006 CLR 6(R1) s;CLEAR SEL 6 
011664 062701 000010 14$: ADD #10,R1 sUPDATE CSR POINTER ADDRESS 
011670 022701 164000 CMP #164000,R1 
011674 001402 BEQ 13$ ;BR IF DONE 
011676 000137 011264 JMP 2s JUMP IF NOT 
011702 005037 1306 13$: CLR DMACTV 
011706 005737 001310 TST sWERE ANY DMC11’S FOUND AT ALL? 
011712 001423 BEQ S$ sERROR AUTO SIZER FOUND NO DMC11’S IN THIS SYS. 
011714 015701 001310 MOV oR1 
011720 010137 001314 MOV R1,SAVNUM sSAVE NUMBER OF DEVICES 
011724 000241 4$: CLC 
011726 006137 001306 ROL DMACTV sGENERATE ACTIVE REGISTER OF DEVICES. 
011732 005237 001306 INC DMACTV :SET THE BIT 
011736 005301 DEC Ri 
011740 001371 BNE 4$ BR IF MORE TO GENERATE 
011742 012737 000006 000004 MOV #6 , 864 sRESTORE TRAP VECTOR 
011750 013737 001306 001312 MOV DMACTV.SAVACT ;SAVE ACTIVE REGISTER 
011756 000137 012010 JMP VECMAP GO FIND THE VECTOR NOW. 
011762 104402 005760 S$: TYPE 2 sNOTIFY OPR THAT NO DMC11‘S FOUND. 
011766 5000 CLR sMAKE DATA LIGHTS ZERO 
011770 000000 HALT sSTOP THE ats 
011772 000776 BR --2 sDISABLE CONT. 
011774 012716 011664 6$: MOV #14$ ,CSP) sENTERED BY NON-EXISTANT TIME-OUT. 
012000 0000 RTI sRETURN TO MAINSTREAM 
012002 000001 WHICH: 1 
012004 002 002 -BYTE 2,2 
012006 001256 TEMPS 
012010 032737 000001 001236 VECMAP: BIT @SWO00, STRTSW 
012016 001114 BNE S$ 
2020 012737 0340 000022 MOV #340 ,8822 sSET IOT TRAP PRIO TO 7 
012026 012737 012202 000020 MOV 4% ,8820 sSET IOT TRAP VECTOR 
12034 012702 001500 MOV $0M.MAP,R2 sSET SOFTWARE POINTER 
012040 012700 000300 MOV #300 ,RO FLOATING on START HERE. 
12044 012701 000302 MOV #302 ,R1 sPC OF IOT INSTR 
012050 010120 i$: MOV R1,CRO)+ ;START foe VECTOR AREA 
012052 012721 000004 MOV #4,(R1)+ sWITH . OT 
012056 2021 CMP (RO)+,CR1)+ ;ADD 2 10. RO +R1 
012060 020127 001000 CMP R1,#1 
012064 101771 BLOS i$ ;BR IF MORE TO FILL 


Sis ca sa celeritete 
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012316 


Se icscael beanie Dusen dn acanmaiastonutOhensansanees 


013737 


170777 
000002 


012172 


166712 


166706 
166704 


166700 
000240 


001246 


177776 


000004 
000006 


177776 
000002 


000002 


2s: 


7$: 


6$: 
3%: 


4%: 


5$: 


BRLVL: 


INTTY: 
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MOV 


DMACTV, TEMP1 
TEMP1 

5$ 

#12,R4 
BRLVLCR4),PS 


#121111, 6(R1) 


#81T9!B1T8,(R1) 
RO 


--2 
#2 ,,R4 


6$ 
[renin 
#5300, 2(R2) 
(R1) 

#10,R2 

es 
(SP),2CR2) 
#7 ,2(R2) 
BRLVL+2(R4),R5 
RS 

RS 

RS 

R5 
#170777,R5 


#3$,(SP) 
PC 


sLEVEL 0 
sLEVEL 0 


R3, STPOBR 
eBIT7!8115, »R3 


sSTORE TEMPORALLY 
sBRING OUT A BIT 

;BR IF ALL DONE 

sR4 IS INDEX REGISTER 
;SET PS TO 7 


;SET ROMI 

sPUT INSTRUCTION IN PORT6 
sFORCE AN INTERRUPT 
;STALL 

:FOR TIME TO INTERUPT 
sGET NEXT LOWEST PS LEVEL 


;BR IF R4 = O 
;MOVE NEXT — LEVEL IN PS 
;BR TO DELA 


;NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX DMC1i LATER 
sCLEAR ROMI 

sPOP SOFTWARE POINTER 

;KEEP GOING 

sGET VECTOR ADDRESS 

CLEAR JUNK 


3 

;GET BR LEVEL OF DMC11 
sSHIFT LEVEL 4 PLACES 
;T0 THE LEFT FOR THE 
sSTATUS TABLE 


;CLEAR UNWANTED BITS 

sPUT BR LEVEL IN STATUS TABLE 
sPOP IOT JUNK OFF STACK 

;SET FOR RETURN 


sALL DONE WITH “AUTO SIZING” 


sWAIT FOR DONE 


.sPUT CHAR IN 


R3 
sWAIT UNTIL PRINTER IS READY 


sECHO CHAR 
sMASK OFF LOWER CASE 
3 URN 


$$6b044460066040046440440060004 TEST 1 £66446660066444644460440608 44486 
;#VERIFY THAT REFERENCING UNIBUS DEVICE REGISTERS 


s#DOES NOT CAUSE A TIME OUT TRAP 
SERRA EREE EEE BEES ESSE EEE EEEEEE ODEO ESE EEEE ERED EE EE EE EES 





SEQ 46 
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012424 


012426 
012434 


012442 


012456 
012464 
012472 


012737 
012737 
012737 


013701 


012737 
012737 


012737 
012737 
012737 


104412 
012700 
005011 


000001 
012426 
012366 
001404 


000004 
012420 
000340 


000002 


000006 
000006 


000002 
012456 


000003 
012606 
012506 


000001 





000004 


001226 
001216 


001226 
001216 
001220 


TST1: 


1$: 


2$: 


TST2: 


1$: 


TST3: 


1$: 





s TEST i 
3 sa sae ae eeanw ee eee 
MOV $1,TSTNO 
MOV #TST2,NEXT 
MOV #1$,LO0CK 
;Ri CONTAINS BASE DMC11 ADORESS 
MOV DMCSR,R1 3R1 CONTAINS BASE DMC1ii1 ADDRESS 
MOV #4 ,RO ;4 REGISTERS TO BE TESTED 
MOV 23,4 ;SET UP TIMEOUT TRAP 
MOV $340.6 ;LEVEL 7 
MH (R1) ;REFERENCE DEVICE REGISTER 
SCOP1 ;SWO9=1? 
ADD #2,R1 sNEXT REGISTER 
DEC ;DEC REGISTER COUNT 
BNE i$ :BR IF NOT LAST REGISTER 
MOV 46.4 sRESTORE LOC 4 
CLR 6 sRESTORE LOC 6 
SCOPE ;SCOPE THIS TEST 
MOV (SP),R2 ;sGET PC OF TRAP 
4 i ;TIME-OUT ERROR 


9 $6640646644646446446464464404600004 TEST 2 £6 4644466454644644444444 446444 


s*#VERIFY THAT RUN CAN BE CLEARED 
$5 SEAREAEEREREREEASAAEADALESEAEREREKAAEASEEAAREREREAREEAEEES EEE 


; TEST 2 
; -eeaneweeeeae eee 
MOV #2, TSTNO - 
MOV 8TST3,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
CLR (R1) ;CLEAR DMCSR 
CLR sR ;CLEAR “EXPECTED” 
MOV (R1),R4 ;PUT DMCSR IN “FOUND” 
BEQ i$ ;BR IF CLEARED 
EMT ERROR DMCSR NOT CLEARED 
SCOPE ;SCOPE THIS TEST 


$42 444664640466464064640640060008 TEST 3 £60464046644644444646444644460444 
s*UNIBUS REGISTER WORD DUAL ADDRESSING TEST 

;#LOAD ALL REGISTERS WITH INCREMENTING PATTERN 

:*#READ BACK ALL REGISTERS TO VERIFY CORRECT ADDRESSING 

5 506K O4 9S OOOO EES EEEEEEEEEEEEKARESERELSEEREDELESL 


s TEST S 
3 ewe ncn ee naecn2e eae @ 
MOV #3,TSTNO 
MOV @TST4, NEXT 
MOV #1$,LOCK 
sR1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
MOV #1,R0 sSTART PATTERN AT 1 
CLR (R1) sCLEAR REGISTER 








SEQ 47 
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012510 MOV RO,RS sPUT DATA IN “EXPECTED” 

12 010011 MOV RO,CR1) sWRITE DMC REGISTER WITH PATTERN 
012514 011104 MOV (R1).R4 sREAD DMC REGISTER INTO “FOUND” 
012516 020504 CMP R5,R4 ;IS DATA CORRECT 
012520 001401 BEQ 2s ;BR IF YES 
012522 104002 EMT ;DATA ERROR 
012524 104401 2$: SCOP1 ;SWO9=17 
012526 005721 TST CR1i)+ sNEXT REGISTER 
012530 0052 INC 0 s INCREMENT DATA PATTERN 
012532 0227 000005 #5 ,R0 ;LAST REGISTER? 

012536 001363 BNE $ ;BR IF NO 
012540 013701 001404 MOV DMCSR,R1 ;BASE DMCil ADDRESS TO Ri 
012544 012700 000001 MOV 1,R0 sRESTART PATTERN AT 1 
012550 012737 012556 001220 MOV #3$,LOCK ;NEW SCOP1 
012556 010005 3$: MOV RS sPUT DATA IN “EXPECTED” 
912560 011104 MOV (R1),R4 ;sREAD DMC REGISTER INTO “FOUND” 
012562 020504 R5 ,R4 :I1S DATA CORRECT 
012564 001401 BEQ 4$ ;BR IF YES 
012566 104002 EMT ;DUAL ADDRESSING ERROR 
012570 104401 4$: SCOP1 ;SWO09=1? 
012572 005721 TST (R1)+ ;NEXT REGISTER 
012574 005200 INC R s INCREMENT PATTERN 
012576 022700 000005 CMP #5,R0 ;LAST REGISTER? 
012602 001365 3$ ;BR IF NO 

- 012604 104400 SCOPE sSCOPE THIS TEST 


400444 6404040460600464040400406404 TEST 4 £644446464446440444444644644644444% 
;*CONTROL STATUS REGISTER WRITE/READ TEST 

;#SET BITO, VERIFY BITO WAS SET 

;*#CLEAR BITO, VERIFY BITO WAS CLEARED 

$s SRRAAEAAEAEAASEASAEARESARASARESARKEAREARARERESEAEAEKKEAEAALES 


; 
MOV 04, TSTNO 


912606 012737 000004 001226 TST4: , 
012614 012737 012704 001216 MOV #TSTS,NEXT 
012622 012737 012632 001220 V #1$,LOCK 
012630 104412 MSTCLR sMASTER CLEAR DMCi1 
012632 013701 001404 1$: V DMCSR,R1 sPUT REGISTER ADDRESS IN R1 
012636 012705 000001 MOV #BITO,RS sPUT DATA IN “EXPECTED” 
012642 010511 MOV RS.CR1 ;WRITE BIT O 
011104 MOV (R1),R4 sREAD CONTROL STATUS REGISTER 
012646 020504 CMP oR4 sIS DATA CORRECT © 
012650 001401 BEQ es ;BR IF YES 
012652 104002 EMT sDATA ERROR 
012654 104401 2$: SCOP 1 :SWO9 UP? 
012656 012737 012664 001220 MOV #3$,LOCK s;NEW SCOP1 
012664 042711 000001 3$: BIC #BITO, (Ri) :CLEAR BIT 0 
012670 005005 CLR RS sCLEAR “EXPECTED” 
012672 011104 MOV (R1),R4 sREAD CONTROL STATUS REGISTER 
012674 001402 BEQ 43 ;BR IF ZERO 
012676 104002 EMT 2 sDATA ERROR BITO NOT CLEARED 
012700 104401 SCOP 1 ;SWO9 UP? 
012702 104400 4$: SCOPE sSCOPE THIS TEST 








013074 
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012737 
012737 
012737 
104412 


012737 
012737 


000005 
013002 
012730 


001404 
000002 


012762 
000002 


000006 
013100 
013026 


001404 
000004 


013060 
000004 





001220 


001226 
001216 
001220 


001220 


TSTS: 


1%: 


2$: 
3$: 


4$: 


‘TST6: 


1$: 


23: 
3$: 
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§ $O0464646446464646646464646444444006400% TEST 5 £6446466446464446464466464644444046 
s#CONTROL STATUS REGISTER WRITE/READ TEST 

;#SET BIT1, VERIFY BIT1 WAS SET 

;*CLEAR BIT1, VERIFY BIT1 WAS CLEARED 

§ 2 SESREEESSEES SESE EAEAAAAASRASELASESEALACALERERER EERE EEREREA LES 


s TEST 5 

3 naa eae enw ewe ewe ee 
MOV #5, TSTNO 
MOV #TST6,NEXT 
MOV #1$,LOCK 
MSTCLR 

MOV DMCSR,R1 
MOV #BIT1,R5 
MOV RS,CR1) 
MOV CR1),R4 
CMP RS ,R4 
BEQ 2$ 

EMT 2 

SCOP1 

MOV #3$,LOCK 
BIC #B1IT1,(R1) 
CLR RS 

MOV CR1),.R4 
BEQ 4$ 

EMT 2 

SCOP 1 

SCOPE 


;MASTER CLEAR DMC11i 

;PUT REGISTER ADDRESS IN Ri 
;PUT DATA IN “EXPECTED” 
;sWRITE BIT 1 

;READ CONTROL STATUS REGISTER 
:IS DATA CORRECT 

;BR IF YES 

;DATA ERROR 

;SWO9 UP? 

sNEW SCOP1 

;CLEAR BIT i 

;CLEAR “EXPECTED” 

;READ CONTROL STATUS REGISTER 
;8R IF ZERO 

sDATA ERROR BIT1 NOT CLEARED 
;SWO9 UP? 

;SCOPE THIS TEST 


§%S004444644664664604644464404604804 TEST 6 £4644646464646464440446 464444644484 
;*CONTROL STATUS REGISTER WRITE/READ TEST 

;*SET BIT2, VERIFY BIT2 WAS SET 

;*CLEAR BIT2, VERIFY BIT2 WAS CLEARED 

§ 2 O6bOO4460446 664464646 4044464646046464446064604644646 40446 0604040046446 4644644444844 


s YEST 6 

; ecnaewe er eae ane ee ee = 

MOV #6.,TSTNO 

MOV OTST7,NEXT 

MOV @1$, LOCK 

MSTCLR 

MOV DMCSR,R1 

MOV #BIT2,R5 

MOV R5,CR1) 

MOV (R1),R4 
3 RS .R4 

BEQ 2s 

EMT 

SCOP1 : 

MOV #3$,LOCK 

BIC #B1T2,(R1) 

CLR RS 

MOV (R1),R4 

BEQ 4$ 

EMT 2 

SCOP 1 





;MASTER CLEAR DMC11 

sPUT REGISTER ADDRESS IN Ri 
3;PUT DATA IN “EXPECTED” 
:WRITE BIT 2 

;READ CONTROL STATUS REGISTER 
sIS DATA CORRECT 

;BR IF YES 

;DATA ERROR 


PECTED” 
sREAD CONTROL STATUS REGISTER 
:BR IF ZERO 
sDATA ERROR BIT2 NOT CLEARED 
;SWO9 UP? 





SEQ 48 














--- 


SEQ 49 
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013076 104400 4$: SCOPE ;SCOPE THIS TEST 
§4O4646446464464444644644440444004 TEST 7 £64664646646464644446646046444486 
;*CONTROL STATUS REGISTER WRITE/READ TEST 
;*SET BITS, VERIFY BITS WAS SET 
:*#CLEAR BITS, VERIFY BITS WAS CLEARED 
etre Trt eter te ttt ett te tt TT TTT TTT TTT TTT TTT TTT TTT TTT 
s YEsT 7 
3 ek ee ee ee a a ee ee 

013100 012737 000007 001226 TST7: MOV #7,TSTNO 

013106 012737 013176 001216 MOV #TST10,NEXT 

013114 012737 013124 001220 V #1$,LOCK 

013122 104412 MSTCLR sMASTER CLEAR DMC1i1 

013124 013701 001404 1$: MOV DMCSR,R1 ;PUT REGISTER ADDRESS IN Ri 

013130 012705 000040 MOV #BITS,R5 ;PUT DATA IN “EXPECTED” 

013134 010511 MOV RS,CR1) saWRITE BIT 5 

013136 011104 MOV CR1),R4 sREAD CONTROL STATUS REGISTER 

013140 020504 CMP R5,R4 sIS DATA CORRECT 

013142 001401 BEQ es 2BR IF YES 

013144 104002 T 2 sDATA ERROR 

013146 104401 2$: SCOP 1 SWO9 UP? 

013150 012737 013156 001220 MOV #3$,LOCK sNEW SCOP1 

013156 042711 000040 3$: BIC #BITS,(CR1) ;sCLEAR BIT 5 

013162 005005 CLR R5 ;CLEAR “EXPECTED” 

013164 011104 MOV (R1),R4 sREAD CONTROL STATUS REGISTER 

013166 001402 BEQ 4$ ;BR IF ZERO 

013170 104002 EMT 2 sDATA ERROR BITS NOT CLEARED 

013172 104401 SCOP1 ;SWO9 UP? 

013174 104400 4$: SCOPE ;SCOPE THIS TEST 
§2O440004660444064640444400400600004 TEST 10 £2464446444646464646446446464444 
s*CONTROL STATUS REGISTER WRITE/READ TEST 
;*SET BIT6, VERIFY BIT6 WAS SET 
:#CLEAR BIT6, VERIFY BIT6 WAS CLEARED 
§ 29666666406 06 6064044644060 46446406 664404440468 4444400406048 4645404444444 
; TEST 10 
iwnweks seinw eda 

013176 012737 000010 001226 TST10: MOV #10, TSTNO 

013204 012737 013274 001216 MOV. @TST11 NEXT 

013212 012737 013222 001220 V #1$,LOCK 

013220 104412 MSTCLR sMASTER CLEAR DOMC1i 

013222 013701 001404 1$: MOV OMCSR,R1 sPUT REGISTER ADDRESS IN Ri 

013226 012705 000100 MOV #BIT6,R5 sPUT DATA IN “EXPECTED” 

013232 010511 MOV R5,(R1) sWRITE BIT 6 

013234 011104 MOV (R1),R4 sREAD CONTROL STATUS REGISTER 

013236 020504 CMP »R4 sIS DATA CORRECT 

013240 001401 BEQ 2$ ;BR IF YES 

013242 1 EMT sDATA ERROR 

013244 104401 23: SCOP 1 ;SWO9 UP? 

013246 012737 013254 001220 MOV #33, LOCK NEW SCOP1 

013254 042711 000100 3$; BIC #BIT6,(R1) sCLEAR BIT 6 

013260 9050 CLR R5~ ;CLEAR “EXPECTED” 

913262 011104 MOV C(R1),R4 sREAD CONTROL STATUS REGISTER 
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013264 001402 BEQ 4s ;BR IF ZERO 

013266 104002 EMT 2 ;DATA ERROR BIT6 NOT CLEARED 
013270 104401 SCOP 1 ;SWO9 UP? 

013272 104400 4$: SCOPE ;SCOPE THIS TEST 


¢#2660664446646464660646406444440008 TEST 11 £6460664646464646464444644646466044464 4% 
;*CONTROL STATUS REGISTER WRITE/READ TEST 

;*#SET BIT7, VERIFY BIT7 WAS SET 

;*#CLEAR BIT7, VERIFY BIT7 WAS CLEARED 

fs SESSEASEASEEAASALEAEEEAEEAALEAEAEEAEEAEAAEEAEERAALEDEEEEED EARS 


; TEST 11 
; i ee 
013274 012737 000011 001226 TST11: MOV #11, TSTNO 
013302 012737 013372 001216 MOV #TST12,NEXT 
013310 012737 013320 001220 MOV #1$,LOCK 
013316 104412 | MSTCLR sMASTER CLEAR DMC1i1 
013320 013701 001404 1$: MOV OMCSR,R1 sPUT REGISTER ADDRESS IN R1 
013324 012705 000200 MOV #6IT7,RS sPUT DATA IN “EXPECTED” 
013330 010511 MOV RS,CR1i) sWRITE BIT 7 
013332 011104 MOV CR1),R4 sREAD CONTROL STATUS REGISTER 
013334 020504 CMP RS ,.R4 s3IS DATA CORRECT 
013336 001401 BEQ 2s ;BR IF YES 
013340 104002 EMT 2 s;DATA ERROR 
013342 104401 2s: SCOP 1 sSWO9 UP? 
013344 012737 013352 001220 MOV #3$,LOCK sNEW SCOP1 
013352 042711 000200 3$: BIC #BIT7,(R1) ;CLEAR BIT 7 
013356 005005 CLR RS sCLEAR “EXPECTED” 
013360 011104 MOV C(R1),R4 sREAD CONTROL STATUS REGISTER 
013362 001402 BEQ Ss ;BR IF ZERO 
013364 104002 EMT 2 sDATA ERROR BIT7 NOT CLEARED 
013366 104401 SCOP 1 ;SWO9 UP? 
013370 104400 4$: SCOPE sSCOPE THIS TEST 


§$060666646406606664666040000804 TEST 12 £6464640666446646664604664864468485% 
s*CONTROL STATUS REGISTER WRITE/READ TEST 

s#SET BIT9, VERIFY BITS WAS SET 

;@CLEAR BIT9, VERIFY BIT9 WAS CLEARED 

§ 5 9066 060600660646646.66 664400406 00404694646004466460046000 0666604046086 08 


; TEST 12 
3 eeaneeeceanaanaease« 
013372 012737 000012 001226 TST1i2: MOV #12, TSTNO 
013400 012737 013470 001216 MOV @TST13 NEXT 
013406 012737 013416 001220 MOV #1$,LOCK 
013414 104412 MSTCLR : sMASTER CLEAR OMC11 
013416 013701 001404 i$; MOV DOMCSR Ri sPUT REGISTER ADDRESS IN Ri 
013422 012705 001000 MOV #BIT9,RS sPUT DATA IN “EXPECTED” 
013426 010511 MOV RS,CR1) sWRITE BIT 9 
013430 011104 MOV (R1),R4 sREAD CONTROL STATUS REGISTER 
013432 020504 CMP RS ,R4 s3IS DATA CORRECT 
013434 001401 BEQ es sBR IF YES 
013436 1 EMT 2 sDATA ERROR 
013440 104401 23: SCOP 1 :SWO9 UP? 
013442 012737 013450 001220 MOV #3$,LOCK sNEW SCOP1 











SEQ 51 


LL LE I I TLL EL TL TE LE OIE SA LLL LO LLL S EE LOT D ALOE SAIL ELLE CLIO RED ONL IEE OO tt TEE CE EEN ee - 
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013450 042711 001000 3$: BIC $BIT9,(R1) ;CLEAR BIT 9 

013454 CLR RS ;CLEAR “EXPECTED” 

013456 011104 MOV (R1i).R4 sREAD CONTROL STATUS REGISTER 

013460 001402 BEQ &¢ :;BR IF ZERO 

013462 104002 EMT 2 ;DATA ERROR BIT9 NOT CLEARED 

013464 104401 SCOP1 ;SWO9 UP? 

013466 104400 4$: SCOPE ;SCOPE THIS TEST 
$$64646664460066466860600000008 TEST 13 £6664046060460066644000484446 
:*CONTROL STATUS REGISTER WRITE/READ TEST 
;#SET BIT11, VERIFY BIT11 WAS SET 
;#CLEAR BIT11, VERIFY BIT11 WAS CLEARED 
$i hbhhbh bebe 066066004046 60440606060540404045444404046 0400664044 6404 
; TEST 13 
° -eanwaeeceaaeacaaacatae «= 

013470 012737 000013 001226 TST13: MOV #13, TSTNO 

013476 012737 013566 001216 MOV #TST14 NEXT 

013504 012737 013514 001220 MOV #1$,LOCK 

013512 104412 MSTCLR sMASTER CLEAR DMC11 

013514 013701 001404 1$: MOV OMCSR,R1 sPUT REGISTER ADDRESS IN Ri 

13520 012705 004000 MOV #B81IT11,R5 sPUT DATA IN “EXPECTED” 

013524 010511 MOV RS .CR1) sWRITE BIT 11 

13526 011104 MOV CR1),R4 sREAD CONTROL STATUS REGISTER 

013530 020504 CMP ‘ sIS DATA CORRECT 

013532 001401 BEQ ;BR IF YES 

013534 104002 EMT s;DATA ERROR 

013536 104401 23: SCOP 1 ;SWO9 UP? 

013540 012737 013546 001220 MOV #33 ,LOCK sNEW SCOP1 

13546 042711 004000 3%: BIC #68IT11,(CR1) sCLEAR BIT 11 

013552 CLR RS sCLEAR “EXPECTED” 

013554 011104 MOV CR1),R4 sREAD CONTROL STATUS REGISTER 

013556 001402 BEQ ay sBR IF ZERO 

013560 1 EMT 2 sDATA ERROR BIT11 NOT CLEARED 

013562 104401 SCOP1 :SWOS UP? 

013564 104400 A$: SCOPE sSCOPE THIS TEST 
seeseeessesessessassecseesesess TEST 14 £4406460000600060006800860066 
s#CONTROL STATUS REGISTER WRITE/READ TEST 
s#SET BIT12, VERIFY BIT12 WAS SET 
s#CLEAR BITi2, VERIFY BIT12 WAS CLEARED 
§ 5008066606606 6600466000606 666660 66040666000060000600060800000008 
; TEST 14 
ger sceceeroeewee one 

13566 012737 000014 001226 TST14: MOV #14, TSTNO 

013574 012737 013664 001216 MOV OTST1S .NEXT 

013602 012737 013612 001220 MOV #1$,LOCK 

013610 10441 MSTCLR sMASTER CLEAR DMCi1 

013612 013701 001404 1$: MOV OMCSR,R1 sPUT REGISTER ADDRESS IN R1 

013616 012705 010000 MOV #68IT12.R5 sPUT DATA IN “EXPECTED” 

013622 010511 MOV RS,CR1) sWRITE BIT i2 

013624 011104 MOV CR1),R4 sREAD CONTROL STATUS REGISTER 

013626 CMP RS.R sIS DATA CORRECT 

013630 001401 BEQ 2s ;BR IF YES 


ES one OE EE 





CZOMC 
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15 


- 


012737 
012737 
012737 
104412 


012737 


013644 
010000 


000015 
013762 
013710 


001410 
000001 


013742 
000001 


000016 
014060 
014006 


001410 
000002 


001220 


001226 
001216 
001220 


001220 


001226 
001216 
001220 





4$: 


TSTi5: 


1%: 


23: 
3%: 


43: 





~_ 
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EMT 2 sDATA ERROR 
SCOP1 :SWOS UP? 
MOV 93% ,LOCK sNEW SCOP1 
BIC #81IT12,(R1) sCLEAR BIT i2 
CLR RS sCLEAR “EXPECTED” 
MOV C(R1).R4 sREAD CONTROL STATUS REGISTER 
BEQ 4s ;BR IF ZERO 
EMT sDATA ERROR BIT12 NOT CLEARED 
SCOP1 3SWO9 UP? 
OPE sSCOPE THIS TEST 


§$$6666464666660660460004400440008 TEST 15 £64644666464666464666464604644866604 
s#CONTROL OUT REGISTER WRITE/READ TEST 

;#SET BITO, VERIFY BITO WAS SET 

s#CLEAR BITO, VERIFY BITO WAS CLEARED 

§ 2 $O606666 6666006066466 66 60460646646 6666 66004640646 64644646444666006064404 


@aeaoeoeeaoa @ooeneee @& 


i 
MOV #15, TSTNO 
Muv @TST16 ,NEXT 


Vv #1$,LOCK 
MSTCLR sMASTER CLEAR OMC1i1 
MOV OMCTL,R1 sPUT REGISTER ADDRESS IN Ri 
MOV #BITO,RS ;PUT DATA IN “EXPECTED” 
MOV RS,CR1L) sWRITE BIT O 
MOV CR1),.R4 sREAD CONTROL OUT REGISTER 
CMP RS .R4 3IS DATA CORRECT 
BEQ es 38R IF YES 
EMT 2 sDATA ERROR 
SCOP1 3SWO9 UP? 
MOV 03%, LOCK sNEW SCOP1 
BIC @BITO,(R1) ;CLEAR BIT 6 
CLR RS sCLEAR “EXPECTED” 
MOV (R1),R4 sREAD CONTROL OUT REGISTER 
BEQ &¢ :8R IF ZERO 
EMT e sDATA ERROR BITO NOT CLEARED 
SCOP1 3SWO9 
SCOPE sSCOPE THIS TEST 


$$6666Se6006eseeseseesaseese TEST 16 £864600060006008000088000005 


| ITi WAS SET 
s@CLEAR BIT1, VERIFY BIT1 WAS CLEARED 
j 3 660$6600006666 000600600664 0660666060606060000660606006000000606 


3s TEST 16 

& eenseeeceeeaees ©2 @ 

MOV 16, TSTNO 

MOV @TST17 NEXT 

MOV #13, LOCK 

MSTCLR sMASTER CLEAR DMC11 

MOV DMCTL Ri sPUT REGISTER ADDRESS IN R1 
MOV #6IT1,R5 sPUT DATA IN “EXPECTED” 
MOV RS.CR1) sWRITE BIT 1 
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014020 011104 MOV CR1),.R4 sREAD CONTROL OUT REGISTER 
014022 020504 CMP RS .R4 sI1S DATA CORRECT 
014024 001401 BEG 23 ;BR IF YES 
014026 104002 sDATA ERROR 
014030 104401 23: SCOP 1 3SWO9 UP? 
014032 012737 014040 001220 MOV #33 ,LOCK sNEW SCOP1 
014040 042711 000002 3%: BIC @BIT1,(R1) ;CLEAR BIT 1 
014044 CLR RS ;CLEAR “EXPECTED” 
014046 011104 MOV (R1),R4 sREAD CONTROL OUT REGISTER 
014050 001402 BEG 4s ;BR IF ZERO 
014052 104002 EMT 2 sDATA ERROR BIT1 NOT CLEARED 
014054 104401 SCOP 1 3SWO9 UP? 
024056 104400 43%: SCOPE sSCOPE THIS TEST 
5 $6064066646446464404646040060408 TEST 17 246 2b eee eee eceececheeeeese 
s*#CONTROL OUT REGISTER WRITE/READ TEST 
:#SET BIT2, VERIFY BIT2 WAS SET 
s*CLEAR BIT2, VERIFY BIT2 WAS CLEARED 
$2 SERESESAASEASSSASSEAASAASALAASCEAAALEEASASASE AAR SALA LARELELEEE 
s TEST 17 
3 -ee ee wee ew ee eee 
014060 012737 000017 001226 TST17: MOV #17, TSTNO 
014066 012737 014156 001216 MOV @TST20,NEXT 
014074 012737 014104 001220 #1$,LOCK 
014102 104412 MSTCLR sMASTER CLEAR DMC1i1 
014104 013701 001410 1$: MOV DMCTL,R1 sPUT REGISTER ADDRESS IN Ri 
014110 012705 000004 MOV *B8IT2,R5 sPUT DATA IN “EXPECTED” 
014114 010511 MOV RS .CR1) sWRITE BIT 2 
014116 011104 MOV CR1),R4 sREAD CONTROL OUT REGISTER 
014120 020504 RS .R4 3IS DATA CORRECT 
014122 001401 BEQ 2s sBR IF YES 
014124 104002 EMT 2 sDATA ERROR 
014126 104401 2s: SCOP1 3SWO9 UP? 
014130 012737 014136 001220 MOV #33 ,LOCK sNEW SCOP1 
014136 042711 000004 3$: BIC #6IT2.(R1) ;CLEAR BIT 2 
014142 005005 CLR R5 sCLEAR “EXPECTED” 
014144 011104 MOV CR1),R4 sREAD CONTROL OUT REGISTER 
014146 001402 BEQ 4$ ;BR IF ZERO 
014150 104002 EMT 2 sDATA ERROR BIT2 NOT CLEARED 
014152 104401 SCOP1 ;SWO 
014154 104400 4$: SCOPE ; SCOPE THIS TEST 
5 $O466400606606400040266800860040008 TEST 20 ££6266068464464442040206644808 
s*#CONTROL OUT REGISTER WRITE/READ TEST 
s*SET BIT6, VERIFY BIT6 WAS SET 
s#CLEAR BIT6, VERIFY BIT6 WAS CLEARED 
§ 5 $6604646460646466 66066666064 60620066060606644646646446006 46044024264 460402444008 
; TEST 20 
+ ~er2e ee ee wee ewe eS 
014156 012737 000020 001226 TST20: MOV #20, TSTNO 
014164 012737 014254 001216 MOV #TST21,NEXT 
014172 012737 014202 001220 MOV #1$,LOCK 
014200 104412 MSTCLR sMASTER CLEAR DMC1i1 
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014202 


014350 


014352 


012737 


012737 


OMCi1 UNIBUS REGISTER TESTS 
013701 
012705 


001410 
000100 


014234 
000100 


000021 
014352 
014300 


001410 
000200 


014332 
000200 


000022 001226 TST22: 


Aiea 


001220 


001226 
1216 
001220 


001220 


1%: 


4$: 


TST21: 


23: 
3$: 


4$: 





OMCTL.P1 
SBIT6,R5 


#3$,LOCK 
tial 


5 
CR1),R4 


SEQ 54 


sPUT REGISTER ADDRESS IN Ri 
sPUT DATA IN “EXPECTED” 
;WRITE BIT 6 

sREAD CONTROL OUT REGISTER 
31S DATA CORRECT 


sNEW SCOP1 

;CLEAR BIT 6 

;CLEAR “EXPECTED” 

sREAD CONTROL OUT REGISTER 
;BR IF ZERO 

SDATA ERROR BIT6 NOT CLEARED 
;SWO9 UP? 

;SCOPE THIS TEST 


$4O066646464 4646464 40246440¢0R00804 TEST 21 seb ebb ebb eesheheeeehshbesats 
:*CONTROL OUT REGISTER WRITE/READ TEST 

;#SET BIT7, VERIFY BIT7 WAS SET 

s*CLEAR BIT7, VERIFY BIT7 WAS CLEARED 


$s SSSRSSSSASSSASEEEAAEEAEKSKHASAACESASEEASEALEAELESE RAGE EELELEES 


s TEST 21 

3 -en ee ew ee ee eee 
MOV #21, TSTNO 
MOV @TST22 ,NEXT 
MOV #1$,LOCK 
MSTCLR 

MOV OMCTL,.R1 
MOV #61T7.R5 
MOV RS .CR1) 
MOV C(R1).R4 
CMP RS .R4 
BEQ 2s 

EMT 2 

SCOP i 

MOV #33 ,LOCK 
BIC #BIT7,C(R1) 
CLR 

MOV CR1),R4 
BEQ 4% 

EMT 2 

SCOP1 

SCOPE 


sMASTER CLEAR DMC11 

sPUT REGISTER ADDRESS IN R1 
sPUT DATA IN “EXPECTED” 
sWRITE BIT 7 

sREAD CONTROL OUT REGISTER 
:1S DATA CORRECT 


ED” 
sREAD CONTROL OUT REGISTER 


:BR IF ZERO 

sDATA ERROR BIT? NOT CLEARED 
;SWO9 UP? 

;SCOPE THIS TEST 


§$$26646646 466 64606006000060466000688 TEST 22 £24644664440460 4604024402444 22 
s*CONTROL OUT REGISTER WRITE/READ TEST 

:*SET BITi2, VERIFY BIT12 WAS SET 

s*CLEAR BIT12, VERIFY BIT12 WAS CLEARED 


§ 2 886246 6464606006 46664646646 6646464646646 66 0046664664444 6046004446 0446402 06464648 


cea" 22 = 


MOV 


#22, TSTNO 














CZDMC 


16 











SEQ 55 
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DMC11 UNIBUS REGISTER TESTS 


012737 
012737 


012737 
012737 
012737 


014450 
014376 


001410 
010000 


014430 
010000 


000023 
014546 
014474 


001410 
020000 


014526 
020000 


001216 
001220 


001220 


001226 
001216 
001220 


001220 


1$: 


23: 
3$: 


4$: 


TST23: 


1$: 


2s: 
3$: 


4$: 


MOV 8TST23 NEXT 

MOV #1$,L0CK 

MSTCLR sMASTER CLEAR DMC11 

MOV DMCTL,.R1 sPUT REGISTER ADDRESS IN Ri 
MOV $61T12,R5 sPUT DATA IN “EXPECTED” 

MOV RS,CR1) sWRITE BIT 12 

MOV (R1),R4 sREAD CONTROL OUT REGISTER 
CMP R5,R4 sIS DATA CORRECT 

BEQ § ;BR IF YES 

EMT 2 sDATA ERROR 

SCOP 1 ;SWO9 UP? 

MOV #3$,LOCK sNEW SCOP1 

BIC #BIT12,(R1) ;CLEAR BIT 12 

CLR RS sCLEAR “EXPECTED” 

MOV (R1).R4 sREAD CONTROL OUT REGISTER 
BEQ AS ;BR IF ZERO 

EMT 2 sDATA ERROR BIT12 NOT CLEARED 
SCOP1 3SWO9 UP? 

SCOPE ;SCOPE THIS TEST 


$SSS4OO4S44S SERS EERESSSE TEST 23 ShhSkaAEREKEASERALALALARESS 
s#CONTROL OUT REGISTER WRITE/READ TEST 

;#SET BIT13, VERIFY BIT13 WAS SET 

;*CLEAR BIT13, VERIFY BIT13 WAS CLEARED 

§ SPEASSSSESSAAEAREAARREAESAAAASEEASRESKEREARELARAEAREKERALEEE ELE 


; TEST 23 

3 ss sas 2 ee nmwaeaneanees 

MOV #23, TSTNO 
MOV @TST24 NEXT 


MOV #1$,LOCK 


MSTCLR sMASTER CLEAR DMC11 

V DMCTL,R1 sPUT REGISTER ADDRESS IN Ri 
MOV #6IT13.R5 sPUT DATA IN “EXPECTED” 
MOV RS,CR1) sWRITE BIT 13 
MOV C(R1),R4 sREAD CONTROL OUT REGISTER 
CMP RS .R4 31S DATA CORRECT 
BEQ es ;BR IF YES 
EMT 2 s;DATA ERROR 
SCOP 1 ;SWO9 UP? 
MOV #3$,LOCK s;NEW SCOP1 
BIC #BIT13,(R1) sCLEAR BIT 13 
CLR RS s;CLEAR “EXPECTED” 
MOV C(R1),R4 sREAD CONTROL OUT REGISTER 
BEQ as ;BR IF ZERO 
EMT 2 sDATA ERROR BIT13 NOT CLEARED 
SCOP1 — ;SWO9 UP? 
SCOPE sSCOPE THIS TEST 


5 4$46464660466664646404644464040008408 TEST 24 ££6£664446446444444644446444646444 
;*PORT4 REGISTER WRITE/READ TEST 

;*FLOAT A ONE THROUGH PORT4 REGISTER 

7*#FLOAT A ZERO THROUGH PORT4 REGISTER 


$s RESO OOE OK EEE EE EE ED 








SEQ 56 
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DOMC11 UNIBUS REGISTER TESTS 
; TEST 24 
3 -<"sa <a ew aeneanee =e 
014546 012737 000024 001226 1TST24: MOV #24,.TSTNO 
014554 012737 014672 001216 MOV &TST25 NEXT 
014562 012737 014602 001220 Vv $64$ ,LOCK 
014570 104412 MSTCLR sMASTER CLEAR DMC1i 
014572 013701 001412 MOV DMP04 ,R1 :PUT REGISTER ADDRESS IN Ri 
014576 012700 000001 MOV #1,R0 ;START WITH BITO 
014602 64%: 
014602 O01 MOV RO,RS ;PUT “EXPECTED” IN R5 
014604 010511 MOV R5,(R1) ;sWRITE PORT4 REGISTER 
014606 011104 MOV (R1),R4 sREAD PORT4 REGISTER 
014610 02 CMP RS ,R4 ;COMPARE EXPECTED AND FOUND 
014612 001401 BEQ 65$ ;BR IF OK 
014614 104002 EMT 2 :WRITE/READ ERROR 
014616 104401 65%: SCOP1 ;LOOP TO 64$ IF SWO9=1 
014620 0600241 CLC ;sCLEAR CARRY 
014622 100 ROL RO ;sSHIFT TO NEXT BIT 
014624 001366 BNE 64$ ;BR IF NOT DONE YET? 
014626 012737 014640 001220 MOV #66$ ,LOCK sNEW SCOP1 
014634 012700 000001 MOV #1,R0 ;START WITH BITO 
014640 66$: 
014640 005100 COM RO ;CHANGE TO A FLOATING ZERO 
014642 010005 MOV RO.RS sPUT “EXPECTED” IN R5 
014644 010511 MOV R5,(R1) sWRITE PORT4 REGISTER 
014646 011104 MOV (R1),R4 sREAD PORT4 REGISTER 
014650 020504 CMP RS ,R4 ;COMPARE EXPECTED AND FOUND 
614652 001401 BEQ 67$ :BR IF OK 
014654 104002 EMT 2 sWRITE/READ ERROR 
014656 104401 67%: SCOP1 ;LOOP TO 66$ IF SWO9=1 
014660 005100 COM RO :CHANGE BACK TO A FLOATING ONE 
014662 000241 CLC ;CLEAR CARRY 
014664 006100 ROL RO :SHIFT TO NEXT BIT 
014666 001364 BNE 66$ 3;BR IF NOT DONE YET? 
7 014670 104400 SCOPE ;SCOPE THIS TEST 
¢286646046644464646446060644400688 TEST 25 £246464646046644444464644446444 44% 
:*PORT6 REGISTER WRITE/READ TEST 
;*FLOAT A ONE THROUGH PORT6 REGISTER 
;*FLOAT A ZERO THROUGH PORT6 REGISTER 
§ RRRRAASEESSSESSARAASEREASAEAEAAASAEESEALELARASLALALE RESALE LALELE 
; TEST 25 
ry nse ecenaeeant eet & «& 
014672 012737 000025 001226 1TST25: MOV #25, TSTNO 
014700 012737 015016 001216 MOV #TST26 ,NEXT 
014706 012737 014726 001220 MOV 0643 ,LOCK 
014714 104412 MSTCLR : sMASTER CLEAR DMCii 
014716 013701 001414 MOV DMPO06,R1 sPUT REGISTER ADDRESS IN Ri 
014722 012700 000001 MOV #1,R0 ;START WITH BITO 
014726 64$: 
014726 010005 MOV RO.RS ;PUT “EXPECTED” IN R5 
014730 010511 MOV R5,(R1) sWRITE PORT6 REGISTER 
014732 011104 MOV (R1),R4 ;READ PORT6 REGISTER 
014734 020504 CMP R5 ,.R4 sCOMPARE EXPECTED AND FOUND 
014736 001401 BEQ 65$ ;BR IF OK 








st 
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012737 
012737 
012737 


014764 
000001 


000026 
015146 
015046 


000001 


001404 
000001 
015116 


001220 


001226 TST26: 
001216 


001220 


001220 





65$: 


67%: 


1$: 


2s: 


3$: 
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SEQ 57 

2 sWRITE/READ ERROR 
SCOP 1 ;LOOP TO 64$ IF SWO9=1 
CLC ;CLEAR CARRY 
ROL RO sSHIFT TO NEXT BIT 
BNE § ;BR IF NOT DONE YET? 
MOV #66$ ,LOCK s;NEW SCOP1 
MOV #1,R0 ;START WITH BITO 
COM RO sCHANGE TO A FLOATING ZERO 
MOV RO,RS sPUT “EXPECTED” IN RS 
MOV RS .CR1) sWRITE PORT6 REGISTER 
MOV CR1),R4 sREAD PORT6 REGISTER 
CMP RS ,R4 sCOMPARE EXPECTED AND FOUND 
BEQ 67$ ;6R IF OK 
EMT 2 sWRITE/READ ERROR 
SCOP 1 sLOOP TO 66% IF SWO9=1 
COM RO sCHANGE BACK TO A FLOATING ONE 
CLC s;CLEAR CARRY 
ROL RO sSHIFT TO NEXT BIT 

66$ ;BR IF NOT DONE YET? 
SCOPE ;SCOPE THIS TEST 


§2$O0464466064646646060446446406442446464464 TEST 26 £6664464464646464664644644644444 4444 
;*UNIBUS REGISTER BYTE DUAL ADDRESSING TEST 

;#LOAD ALL REGISTERS WITH INCREMENTING PATTERN 

;#READ BACK ALL REGISTERS TO VERIFY CORRECT ADDRESSING 

§ 2S SRAEEESEASAACASASEASESASAEAEEAAEAKEAEEAREASEAALERAALALREEES ELE 


; TEST 26 
e aoa ecwaeaceaeacaecaaceaaas 
MOV #26, TSTNO 
MOV #TST27 NEXT 
MOV #1$,LOCK 
3R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC1i 
MOV #1,RO ;START PATTERN AT 1 
CLRB (Ri) ;CLEAR REGISTER 
MOVB RO,RS sPUT DATA IN “EXPECTED” 
MOVB RO,CR1) sWRITE DMC REGISTER WITH PATTERN 
MOVB CR1),R4 sREAD DMC REGISTER INTO “FOUND” 
CMP KS ,R4 31S DATA CORRECT 
BEQ 2s 3;BR IF YES 
EMT 2 ;DATA ERROR 
SCOP1 ;SWO9=1? 
TSTB (R1)+ sNEXT REGISTER 
INC sINCREMENT DATA PATTERN 
CMP #11,R0 sLAST REGISTER? 
BNE i$ ;BR IF NO 
MOV DMCSR,R1 sBASE DMCii1 ADDRESS TO Ri 
MOV 2RO sRESTART PATTERN AT 1 
MOV #3$,LOCK sNEW SCOPi 
MOVB RO,RS ;PUT DATA IN “EXPECTED” 
MOVB CR1),R4 sREAD DMC REGISTER INTO “FOUND” 
RS ,R4 31S DATA CORRECT 
BEQ 4$ ;BR IF YES 
EMT 2 sDUAL ADDRESSING ERROR 














nr 


SEQ 58 
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19 


20 


015130 
015132 
015134 
015136 
015142 
015144 


015146 
015154 
015162 


015170 
015172 
015176 
015200 


012737 
012737 
012737 


000011 


000027 
015306 
015200 


5232 
177777 


003000 
000006 


001226 
001216 
001220 


001220 


001220 


4$: 


TST27: 


1%: 


2s: 


3$: 


4$: 


5$: 


6$: 


SCOP 1 ;SWO9=17 

TSTB (R1)+ sNEXT REGISTER 

INC RO s INCREMENT PATTERN 
CMP #11,R0 ;LAST REGISTER? 
BNE 3$ ;BR IF NO 

SCOPE sSCOPE THIS TEST 


§46446466646464466464646444044644464044 TEST 27 cee ee ch cece ek eee cece eens 
;*#MAINTENANCE INSTRUCTION REGISTER TEST 

;#VERIFY THAT THE MAINT IR CAN BE WRITTEN TO ALL ZEROS’ 

;#AND ALL ONES’. VERIFY THAT IT IS CLEARED ON A BUS RESET. 

§ S SRSESEAEELERESESEASEBAEARAAAEEREAREAEEKEAAREAARAEAKASAAEAREKESE EES 


; TEST 27 
3 aaneeecacenaeeecaeana «= 
MOV #27, TSTNO 
MOV #TST30,NEXT 
MOV #1$,LOCK 
Ri CONTAINS BASE DMC11 ADDRESS 

MSTCLR MASTER CLEAR DMC11 
MOV #B1T9!BIT10,(R1) ;SEL6 IS NOW THE IR 
CLR RS sPUT “EXPECTED” IN R5 
MOV RS .6(R1) ;CLEAR THE I 
MOV 6(R1),R4 ;READ THE IR. 

R5.R4 sIS IT CLEARED? 
BEQ 2$ :BR IF YES 
EMT 23 ;ERROR IR IS NOT CLEAR 
SCOP1 sLOOP TO i$ IF SWO9=1 
MOV #3$, LOCK ;NEW SCOP1 
MOV #-1,R5 ;PUT “EXPECTED” IN R5 
MOV RS,6(R1) sWRITE ALL ONES TO THE IR 
MOV 6(R1),R4 sREAD THE IR 
CMP R5,R4 s15 IT ALL ONES? 
BEQ 43 ;BR IF YES 
EMT 23 ;ERROR IR IS NOT = ALL ONES 
SCOP1 sLOOP TO 3$ IF Swo9=1 
MOV #5$, LOCK ;NEW SCOP1 
CIR re ;PUT “EXPECTED” IN RS 
RESET ;BUS RESET 
MOV #BIT9!BIT10,(R1) ;SEL6 IS IR 
MOV 6(R1),R4 sREAD THE IR 
CMP RS ,R4 ;1S IT CLEARED? 
BEQ ry) ;BR IF YES 
EMT 23 ;ERROR, IR IS NOT CLEARED 
SCOP1 sLOOP TO S$ IF Swo9=1 
SCOPE ;SCOPE THIS TEST 


$$000060006006000064000000008 TEST 30 £66000006044006060400006844 
s*MAINTENANCE INSTRUCTION REGISTER TEST 

;#VERIFY THAT THE MAINT IR CAN BE WRITTEN TO ALL ZEROS’ 

;#AND ALL ONES‘. VERIFY THAT IT IS CLEARED ON A MASTER RESET. 
$8600 SO OKEEEEOEEEEEEE EEE ES 











SEQ 59 


ere 
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OMC11 UNIBUS REGISTER TESTS 
015306 012737 000030 001226 TST30: MOV #30, TSTNO 
015314 012737 015450 001216 MOV $TST31,NEXT 
015322 012737 015340 001220 MOV #1$,LOCK 
sR1 CONTAINS BASE DMCii ADDRESS 
015330 104412 MSTCLR sMASTER CLEAR DMC1i1 
015332 012711 003000 v #BIT9!BIT10, (Ri) ;SEL6 IS NOW THE IR 
015336 005005 CLR RS ;PUT “EXPECTED” IN R5 
015340 010561 000006 1$: MOV RS ,6(R1) ;CLEAR THE IR 
015344 016104 000006 MOV 6(R1),R4 sREAD THE IR 
015350 020504 CMP R5, ;IS IT CLEARED? 
015352 001401 BEQ 2$ ;BR IF YES 
015354 104023 EMT 23 sERROR IR IS NOT CLEAR 
015356 104401 2s: SCOP1 ;LOOP TO 1$ IF SWO9=1 
015360 012737 015372 001220 MOV #3$,LOCK sNEW SCOP1 
015366 012705 177777 MOV #-1,R5 ;PUT “EXPECTED” IN R5 
015372 010561 000006 3$: MOV RS ,6(R1) ;WRITE ALL ONES TO THE IR 
015376 016104 000006 MOV 6(R1),R4 sREAD THE IR 
015402 020504 CMP RS, :IS IT ALL ONES? 
015404 001401 BEQ $ ;BR IF YES 
015406 104023 EMT 23 sERROR IR IS NOT = ALL ONES 
015410 104401 4%: SCOP1 sLOOP TO 3$ IF SWO9=1 
015412 012737 015422 001220 MOV #5$,LOCK sNEW SCOP1 
015420 005005 CLR R5 ;PUT “EXPECTED” IN R5 
015422 052711 040000 5$: BIS #BIT14,(R1) sMASTER CLEAR 
015426 012711 003000 MOV #BIT9!BIT10,(R1) ;SEL6 IS IR 
015432 016104 000006 MOV 6(R1),R4 D THE IR 
015436 02C504 CMP RS .R4 ;IS IT CLEARED? 
015440 001401 BEQ 6$ ;BR IF YES 
015442 104023 EMT 23 sERROR, IR IS NOT CLEARED 
015444 104401 6$: SCOP 1 sLOOP TO 5$ IF SWO9=1 
“0 015446 104400 SCOPE ;SCOPE THIS TEST 
$£$b046046606606460040064000000064 TEST 31 £466446406440444644444644 4444 
;#MICRO PROCESSOR TEST 
s#LOAD DOMPO6 WITH A MICRO-PROCESSOR INSTRUCTION, CLOCK IT 
s#VERIFY INSTRUCTION EXECUTED PROPERLY 
s*#INSTRUCTION SHOULD MOVE IBUS*4 TO IBUS«5, IBUS#4 IS ALL 1'S 
;#AND IBUS#5 IS ALL O'S. RESULT SHOULD BE ALL 1'S IN SEL4 
§ Sh ORSOOOEEEEOE EES EEEEEEES OOS EEEEEEOSEKEEESERERESEEEEEEEEEEES 
; TEST 31 
3 na e2enceceeaencaess 
015450 012737 000031 001226 TST31i: MOV #31, TSTNO 
015456 012737 015534 001216 MOV #TST32 NEXT 
; 3R1 CONTAINS BASE DMC11 ADDRESS 
015464 104412 MSTCLR | sMASTER CLEAR DMCi1 
012761 000377 000004 #377 ,4(R1) sPORT4 HI-BYTE=0'S LO-BYTE=1'S 
015474 012711 001000 MOV #B1IT9,(R1) ;SET ROMI 
015500 012761 121105 000006 MOV #121105,6(R1)  ;INSTRUCTION TO PORT6 
caanie ree Ad 001400 3 OBITS!BIT9,CR1) ;CLK INTSRUCTION, MOVE IBUS*4 TO IBUS«5 
3 
015514 012705 177777 MOV #-1,R5 sPUT “EXPECTED” IN R5 
015520 016104 000004 MOV 4(R1),R4 sPUT “FOUND” INTO R4 
015524 020504 RS .R4 31S DATA CORRECT 
015526 001401 BEQ 1$ 3;BR IF YES 
015530 104003 EMT 3 s;ERROR 





— 











SEQ 60 
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OMC11 MICRO PROCESSOR IBUSs TESTS 
015532 104400 1%: SCOPE ;SCOPE THIS TEST 
§2O4466446646446464646464664444644644 TEST 32 shh ee beech cece eecces cee cece 
s*MICRO PROCESSOR IBUS« REGISTER WRITE/READ TEST 
;*FLOAT A 1 THROUGH IBUSs REGISTER 0 
:#FLOAT A O THROUGH IBUS* REGISTER 0 
§ 2 SSSSAEESSESEAEASAREALESESALESEAAAEEAREEEEAAEALARGRAESLAAAKRESD ES 
; TEST 32 
015534 012737 000032 001226 TST32: MOV #32, TSTNO 
015542 012737 015734 001216 MOV $TST33 ,NEXT 
015550 012737 015570 001220 MOV $64$ ,LOCK 
3R1 CONTAINS BASE DMC11i ADDRESS 
015556 12 MSTCLR sMASTER CLEAR DMC11 
015560 012702 000000 MOV #0 ,R2 s;SAVE REGISTER ADDRESS FOR TYPEOUT 
state 012700 000001 “i MOV #1,.R0 sSTART WITH BIT O 
015570 010061 900004 MOV RO,4(R1) ;PUT PATTERN INTO PORT4 
015574 042761 000030 000004 BIC $30,4(R1) ;CLEAR UNWANTED BITS 
015602 104414 LK sNEXT WORD IS INSTRUCTION, — PC=5304 
15604 121100 121100!0 sMOV DATA TO IBUS* REGISTER 
015606 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
015610 121005 121005 !<0420> sREAD FROM IBUS* REGISTER 0 
015612 0100 MOV RO,RS sPUT EXPECTED IN RS 
015614 042705 000030 BIC #30,R5 ;CLEAR UNWANTED BITS 
015620 116104 000005 MOVB SC(R1),R4 sPUT “FOUND” INTO R4 
015624 120504 RS ,R4 sDATA CORRECT? 
015626 901401 BEQ 65$ ;BR IF YES 
015630 104004 EMT 4 sERROR 
015632 104401 65$: SCOP 1 ;SWO9=1? 
015634 000241 CLC ;CLEAR CARRY 
015636 106100 ROLB RO ;SHIFT BIT IN RO 
015640 001353 BNE 64$ ;IF RO=0 THEN DONE 
015642 012737 015656 001220 MOV #67$ ,LOCK sNEW SCOP1 
015650 012700 000001 MOV : sSTART WITH BIT O 
015654 005100 69$: COM ;CHANGE TO FLOATING ZERO 
015656 67$: 
015656 010061 000004 MOV RO,4(R1) sPUT PATTERN INTO PORT4 
015662 042761 000030 000004 BIC #30,4(R1) sCLEAR UNWANTED BITS 
015670 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
015672 121100 121100!0 sMOV DATA TO IBUS* REGISTER 0 
015674 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
015676 121005 121005 !<0#20> sREAD FROM IBUS* REGISTER 0 
015700 010005 MOV RO.R5 ;PUT EXPECTED IN RS 
015702 042705 000030 BIC #30, ;CLEAR UNWANTED BITS 
015706 116104 000005 MOVB SCR1),R4 sPUT “FOUND” INTO R4 
015712 120504 RS ,R4 sDATA CORRECT? 
015714 001401 BEQ 68% ;BR IF YES 
015716 104004 EMT 4 sERROR 
015720 104401 68$: SCOP1 ;SW09=1? 
015722 005100 COM RO sCHANGE TO FLOATING 1 
015724 000241 CLC ;CLEAR CARRY 
015726 106100 ROLB RO ;SHIFT BIT IN RO 
015730 001351 BNE 69$ ;IF RO=0 THEN DONE 
015732 104400 SCOPE sSCOPE THIS TEST 





—— 
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DMCi1 MICRO PROCESSOR IBUSs TESTS 


000033 
016134 
015770 


000002 
000001 


000004 
000070 


000070 
000005 


016056 
000001 


000004 
000070 


000070 
000905 


001226 TST33: 
001216 


000004 


001220 


000004 


65$: 


69%: 
67$: 


§ 290466 4046466466466664646404646464440004 TEST 33 24646446 464464444464464444446 4444 


s;#MICRO PROCESSOR IBUSs REGISTER WRITE/READ TEST 
s*FLOAT A 1 THROUGH IBUSs REGISTER 2 
;#FLOAT A 0 THROUGH IBUS« REGISTER 2 


fs SSESSSSASSSAEAESASALEASSAAEAAEAASSAREEAESEALALALALEALALERLELREREES 


s TEST 33 

3 “sae enc ee ene ee 

MOV #33, TSTNO 
MOV #TST34 ,NEXT 
MOV #645 ,LOCK 


#2 ,R2 
MOV #1,R0 


MOV RO,4(R1) 
BIC #70,4(R1) 


oats" 

121005! <2420> 

MOV RO,RS 

BIC #70,R5 

MOVB SC(R1),R4 
»R4 

BEQ 65$ 

EMT & 

SCOP 1 

CLC 

ROLB RO 

BNE 64% 

MOV 967$ ,LOCK 

MOV #1,RO0 

COM RO 


MOV RO.4(R1) 
BIC #70,4(R1) 


121005 !<2«20> 
MOV 


RO.RS 
BIC #70,R5 | 
CMPB 4 


* 


BEQ $ 
EMT 4 
SCOP 1 

Com RO 
CLC 

ROLB RO 
BNE 69$ 
SCOPE 





sR1 CONTAINS BASE DMC11 ADDRESS 


sMASTER CLEAR DMCil 


sSAVE REGISTER ADDRESS FOR TYPEOUT 


sSTART WITH BIT 0 


sPUT PATTERN INTO PORT4 
sCLEAR UNWANTED BITS 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS* REGISTER 2 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS* REGISTER 2 


:PUT EXPECTED IN RS 
;sCLEAR UNWANTED BITS 
;PUT “FOUND” INTO R4 
;DATA CORRECT? 

;BR IF YES 

;ERROR 

3SWO9=17 

;sCLEAR CARRY 

;SHIFT BIT IN RO 

:IF RO=0 THEN DONE 
sNEW SCOP1 

sSTART WITH BIT O 
sCHANGE TO FLOATING ZERO 


sPUT PATTERN INTO PORT4 
;CLEAR UNWANTED BITS 





SEQ 61 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


sMOV DATA TO IBUS4 REGISTER 2 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


sREAD FROM IBUS«* REGISTER 2 


;PUT EXPECTED IN RS 
:CLEAR UNWANTED BITS 
3PUT “FOUND” INTO R4 
sDATA a" 


;SWO09-17 

sCHANGE TO FLOATING 1 
:CLEAR CARRY 

sSHIFT BIT IN RO 

sIF RO=0 THEN DONE 
;SCOPE THIS TEST 


~— 
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MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-23 
DMC11 MICRO PROCESSOR IBUSs TESTS 


012737 
0 


000034 


001226 1TST34: 


016310 001216 


016170 001220 


000004 
000001 


000004 


000005 


016244 
000001 


000004 


000005 


001220 


65$: 


69%: 
67%: 





§4664646664646464646646446464666446466 TEST 34 sce be se cece ce eccsch cheese 
;*MICRO PROCESSOR IBUS« REGISTER WRITE/READ TEST 

;*FLOAT A 1 THROUGH IBUS« REGISTER 4 

;*FLOAT A O THROUGH IBUS« REGISTER 4 

ft SEREESAEEAEEEASALELALASARAEALERAAALARASAALALERAAAAAASAAAAEEKES 


; TEST 34 
MOV #34, TSTNO 
MOV #TST35 NEXT 
MOV #64$ ,LOCK 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMCi1 
MOV #4 ,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
MOV #1,RO0 ;START WITH BIT O 
MOV RO,4(R1) sPUT PATTERN INTO PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121100!4 sMOV DATA TO IBUS« REGISTER 4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC +5304 
121005 !<4#20> ;sREAD FROM IBUS« REGISTER 4 
MOV RO,RS :PUT EXPECTED IN R5 
MOVB 5(R1),R4 ;PUT “FOUND” INTO R4 
CMPB RS .R4 sDATA CORRECT? 
BEQ 65$ :BR IF YES 
EMT 4 ;ERROR 
SCOP1i ;SWO09=1? 
C ;CLEAR CARRY 
ROLB RO ;SHIFT BIT IN RO 
BNE 64$ ;IF RO=0 THEN DONE 
MOV 067$ ,LOCK sNEW SCOP1 
MOV #1,R0 ;START WITH BIT 0 
COM ;CHANGE TO FLOATING ZERO 
MOV RO,4(R1) cs PATTERN INTO PORT4 
ROMCLK XT WORD IS INSTRUCTION, = ton PC=5304 
121100!4 sMOV DATA TO IBUS« REGISTER 4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5. gag ge sREAD FROM IBUSs REGISTER 4 
MOV sPUT EXPECTED IN R5 
MOVB Schi). R4 sPUT “FOUND” INTO R4 
R5,R4 sDATA CORRECT? 
BEQ 68$ ;BR IF YES 
EMT 4 sERROR 
SCOP1 35WO9=17? 
COM RO ;CHANGE TO FLOATING 1 
CLC SCLEAR CARRY 
ROLB RO sSHIFT BIT IN RO 
BNE 69% sIF RO=0 THEN DONE 
SCOPE ;SCOPE THIS TEST 


¢ $446 6464400666604644064046400460646 TEST 35 ££646464464646466646604446446 46484404 
s#MICRO PROCESSOR IBUS*« REGISTER WRITE/READ TEST 
;#FLOAT A 1 THROUGH IBUS* REGISTER 5 
;*FLOAT A O THROUGH IBUS* REGISTER 5 


SEQ 62 
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OMC11 MICRO PROCESSOR IBUSs TESTS 


5S SRSASSASESESASASESASALESEALASEARELEASALALALALAEE SEARLE EREL‘LD ELDERS ES 


29 


; TEST 35 
016310 012737 000035 001226 1TST35: MOV #35, TSTNO 
016316 012737 016464 001216 MOV &TST36,NEXT 
016324 012737 016344 001220 MOV #64$ ,LOCK 
sR1 CONTAINS BASE DMCii ADDRESS 

016332 104412 MSTCLR sMASTER CLEAR DMC1i1 
016334 012702 000005 MOV #5 ,R2 sSAVE REGISTER ADDRESS FOR TYPEOUT 
016340 012700 000001 MOV #1,R0 sSTART WITH BIT 0 
016344 64%: 

6344 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORT4 
016350 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016352 121105 121100!5 sMOV DATA TO IBUS* REGISTER 5 
016354 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016356 121125 121005 !<5#20> ;sREAD FROM IBUS* REGISTER 5 

6360 00 MOV RO.RS sPUT EXPECTED IN R5 
016362 1161904 000005 MOVB SC(R1),R4 sPUT “FOUND” INTO R4 
016366 120504 RS ,R4 sDATA CORRECT? 
016370 001401 BEQ 65$ ;BR IF YES 
016372 104004 EMT a ERROR 
016374 104401 65%: SCOP 1 ;SWO9=17? 
016376 000241 CLC sCLEAR CARRY 
016400 106100 ROLB RO sSHIFT BIT IN RO 
016402 13 BNE 64$ sIF RO=0 THEN DONE 
016404 012737 016420 001220 MOV 067$ ,LOCK sNEW SCOP1 
016412 012700 000001 MOV #1,RO0 sSTART WITH BIT 0 
016416 005100 69%: COM RO s;CHANGE TO FLOATING ZERO 
016420 67$: 
016420 010061 000004 MOV RO.4(R1) sPUT PATTERN INTO PORT4 
016424 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016426 121105 121100!5 sMOV DATA TO IBUS* REGISTER 5 
016430 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016432 121125 121005 !<5#20> sREAD FROM IBUS* REGISTER 5 
016434 0005 MOV RO.RS sPUT EXPECTED IN R5 
016436 116104 000005 MOVB SCR1),R4 sPUT “FOUND” INTO R4 
016442 120504 CMPB RS .R4 sDATA CORRECT? 
016444 001401 BEQ 68$ :BR IF YES 
016446 104004 EMT & sERROR 
016450 104401 68%: SCOP 1 3SWO9=17? 
016452 005100 COM RO sCHANGE TO FLOATING 1 
016454 000241 CLC sCLEAR CARRY 
016456 106100 ROLB RO sSHIFT BIT IN RO 
016460 001356 3 69% sIF RO=0 THEN DONE 
016462 104400 SCOPE sSCOPE THIS TEST 


§22664604664664000064460000h0006 TEST 36 £624644464466446446646064464046648 
s#MICRO PROCESSOR IBUS*« REGISTER WRITE/READ TEST 

;#FLOAT A 1 THROUGH IBUSs REGISTER 10 

+*#FLOAT A O THROUGH IBUSs REGISTER 10 

;*#THE NPR RQ BIT (BIT 0) IS MASKED DURING THIS TEST 

5266004660466 0604 06404660464664646666646446 646044604646464664646 0664606606806 
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MACRO V04.00 
OMC11 MICRO PROCESSOR IBUSs TESTS 


000036 001226 TST36: 
001216 


016664 
016520 


000010 
000001 


000004 
000141 


000141 
000005 


016606 
000001 


000004 
000141 


000141 
000005 


001220 


000004 


001220 


000004 


65$: 


69$: 
67%: 


27-JUN-85 13:16:37 PAGE 27-25 


MOV $36. TSTNO 
MOV @TST37 NEXT 
MOV #64$ ,LOCK 
MSTCLR 
MOV #10,R2 
MOV #1,R0 
MOV RO,4(R1) 
BIC #141,4(R1) 
LK 
121100!10 
LK 
121005 !<104«20> 
MOV »RS 
BIC #141 ,R5 
MOVE SCR1),R4 
CMPB RS, 
BEQ 65% 
EMT 4 
SCOP 1 
CLC 
ROLB RO 
BNE 64$ 
MOV #67$ ,LOCK 
MOV #1,R0 
COM RO 
MOV RO,4(R1) 
BIC #141,4(R1) 
ROMCLK 
121100!10 
ROMCLK 
121005 !<10420> 
MOV RO.RS 
BIC 141, RS 
MOVB SRL), oR4 
BEQ 68% 
EMT & 
SCOP 1 
COM RO 
CLC 
ROLB RO 
BNE 69% 
SCOPE 


ee 


SEQ 64 


3R1 CONTAINS BASE DMCii ADORESS 
sMASTER CLEAR DMC1i1 

sSAVE REGISTER ADDRESS FOR TYPEOUT 
sSTART WITH BIT 0 


;PUT PATTERN INTO PORT4 

;CLEAR UNWANTED BITS 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;MOV DATA TO I6US« REGISTER 1 10 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS*s REGISTER 10 

sPUT EXPECTED IN RS 

;CLEAR UNWANTED BITS 

sPUT “FOUND” INTO R4 

sDATA CORRECT? 

;8R IF YES 

;ERROR 

;SWO09=1? 

sCLEAR CARRY 

;SHIFT BIT IN RO 

:IF RO=0 THEN DONE 

sNEW SCOP1 

sSTART WITH BIT 0 

;CHANGE TO FLOATING ZERO 


sPUT PATTERN INTO PORT4 
‘er UNWANTED BITS 
T WORD IS INSTRUCTION, ROMCLK PC=5304 
NOV DATA TO IBUSs« REGISTER 10 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;READ FROM IBUS« REGISTER 10 
sPUT EXPECTED IN RS 
sCLEAR UNWANTED BITS 
sPUT “FOUND” INTO R4 
sDATA CORRECT? 
38R IF YES 
sERROR 
3SWO9=17 
sCHANGE TO ae 1 
;CLEAR CARRY 
;SHIFT BIT IN RO 
sIF RO=0 THEN DONE 
sSCOPE THIS TEST 


$$266666460600606840008000808 TEST 37 6606606646066046666860660608% 
s@MICRO PROCESSOR IBUS« REGISTER gh TEST 


. 1 
s#THE BR RQ BIT, PGM CLOCK BIT, FORCE POWER FAIL BIT 
s*(BITS 7,4,1) ARE ALL MASKED DURING THIS TEST 
j  BObSO6 E646 0006 48 64660006 464004560606 0040060060060060000606 6046 


3; TEST 37 








enn c ccc ccn ccc cccccc ccc ccccccccnnccncccmccccnccccccnncncnnnnnen creer eee ere ssn 





- 


§ $966666666046066066006608680066 TEST 40 £6666666666666466666666604066 


s@MICRO PROCESSOR IBUS REGISTER a cca TEST 
3*FLOAT : 1 THROUGH IBUS REGISTER 
© THROUGH IBUS REGISTER 


s*FLOAT A 





CZO0MC MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-26 _—a 
DOMC11 MICRO PROCESSOR IBUSs TESTS 
b Ee ee ee ee 

016664 012737 000037 001226 TST37: MOV #37, TSTNO 

016672 012737 017104 001216 MOV 8TST40 ,NEXT 

016700 012737 016720 001220 MOV 664% ,LOCK 

sR1 CONTAINS BASE DMC1i ADDRESS 

016706 104412 MSTCLR sMASTER CLEAR DMCi1i 

016710 012702 000011 MOV #11,R2 sSAVE REGISTER ADDRESS FOR TYPEOUT 
ppt os 012700 000001 na MOV #1,R0 sSTART WITH BIT 0 

7 : 

016720 010061 000004 MOV RO,4(R1) sPUT PATTERN INTO PORT4 

016724 042761 000262 000004 BIC #262 ,4(R1) sCLEAR UNWANTED BITS 

016732 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC*5304 
016734 121111 121100!11 sMOV DATA TO IBUS* REGISTER i1 
016736 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016740 121225 121005!<11#20> ;READ FROM IBUS« REGISTER 11 
016742 010005 MOV RO,RS sPUT EXPECTED IN RS 

016744 042705 000262 BIC #262 ,R5 sCLEAR UNWANTED BITS 

016750 052705 000020 BIS #20,R5 sADD THESE BITS 

016754 116104 MOVB SCR1),R4 sPUT “FOUND” INTO R4 

016760 2704 000020 BIS #20 ,R4 sADD THIS BIT 

016764 120504 CMPB RS .R4 sDATA CORRECT? 

016766 001401 BEQ 65$ 3B8R IF YES 

016770 104004 EMT & sERROR 
016772 104401 65%: SCOP 1 3;SWO09=17 
016774 000241 CLC s;CLEAR CARRY 
016776 106100 ROLB RO sSHIFT BIT IN RO 
017000 001347 BNE 643 sIF RO=0 THEN DONE 

17002 012737 017016 001220 MOV 67% ,LOCK sNEW SCOP1 
017010 012700 000001 MOV , sSTART WITH BIT 0 
rates 005100 a. COM sCHANGE TO FLOATING ZERO 
017016 010061 000004 MOV RO,4(R1) sPUT PATTERN INTO PORT4 
017022 042761 000262 000004 BIC #262 ,4(R1) sCLEAR UNWANTED BITS 
017030 104414 . ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017032 121111 121100!11 sMOV DATA TO IBUSs REGISTER 11 
017034 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017036 121225 121005 !<11420> ;READ FROM IBUS« REGISTER i1 
017040 010005 MOV RO,RS sPUT EXPECTED IN RS 
017042 042705 000262 BIC #262 RS sCLEAR UNWANTED BITS 
017046 052705 000020 6Is #20, sAD0 THESE BITS 
017052 116104 MOVE SCR1),R4 sPUT "FOUND” INTO R4 
017056 2704 000020 6Is ’ sADD THIS BIT 
017062 : RS RE sDATA CORRECT? 
017064 001401 BEG 68% sBR IF YES 
017066 104004 EMT 4 sERROR 
017070 104401 68%: SCOP 1 3S$W09*17 
017072 005100 COM RO sCHANGE TO — 1 
017074 000241 CLC sCLEAR CARRY 
017076 106100 RO sSHIFT BIT IN RO 
017100 001345 BNE 69% sIF RO=0 THEN DONE 

017102 104400 SCOPE sSCOPE THIS TEST 











— —- 


CZOMC MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-27 SEQ 66 
OMCi1 MICRO PROCESSOR IBUS TESTS 


£ F SSOSSESESSESHASEASASESSE SESE EEKESESSASAAEHEAAALE SCA SESE EEADEERESRERE 


; TEST 40 
ee 
017104 012737 000040 001226 1TST40: MOV 040, TSTNO 
017112 012737 017260 001216 MOV @TST41 NEXT 
017120 012737 017140 001220 MOV $643 ,LOCK 
3R1 CONTAINS BASE DMC11 ADDRESS 
017126 104412 MSTCLR sMASTER CLEAR DMC1i1 
017130 012702 900000 MOV 60 ,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
os atks 012700 000001 os MOV $1,R0 sSTART WITH BIT O 
17140 010061 000004 MOV RO,4(R1) sPUT PATTERN INTO PORT4 
017144 104414 L sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017146 122100 122100!0 sMOV DATA TO IBUS REGISTER 0 
017150 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017152 021005 21005! <0220> sREAD FROM IBUS REGISTER 0 
017154 010005 MOV RO,RS sPUT EXPECTED IN RS 
017156 116104 000005 MOVB S(R1),R4 sPUT “FOUND” INTO R4 
017162 12 ° sDATA CORRECT? 
017164 001401 BEQ 65$ ;BR IF YES 
017166 104005 EMT 5 sERROR 
017170 104401 65%: SCOP 1 ;SWO9=1? 
017172 000241 cLc sCLEAR CARRY 
017174 106100 ROLB RO sSHIFT BIT IN RO 
017176 001360 BNE 64$ ;IF RO=0 THEN DONE 
017200 012737 017214 001220 MOV 667% ,LOCK sNEW SCOP1 
017206 012700 000001 MOV #1,R0 sSTART WITH BIT O 
pedis 005100 re COM RO ;CHANGE TO FLOATING ZERO 
017214 010061 000004 MOV RO.4(R1) ;PUT PATTERN INTO PORT4 
017220 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017222 122100 122100!:0 sMOV NATA TO IBUS REGISTER 0 
017224 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017226 021005 21005! <0220> sREAD FROM IBUS REGISTER 0 
017230 010005 MOV RO,RS ;PUT EXPECTED IN RS 
017232 116104 000005 MOVB SCR1),R4 3PUT “FOUND” INTO R4 
017236 120504 RS .R4 sDATA CORRECT? 
017240 001401 BEQ 68% ;BR IF YES 
017242 104005 EMT 5 sERROR 
017244 104401 68%: SCOP1 :SWO9=17 
017246 005100 COM RO sCHANGE TO FLOATING 1 
017250 000241 CLC sCLEAR CARRY 
017252 106100 ROLB RO ;SHIFT BIT IN RO 
017254 001356 BNE 69$ ;IF RO=0 THEN DONE 
017256 104400 SCOPE sSCOPE THIS TEST 
$24646664646446464060060040460608006 TEST 41 £662444644628464648 4446424404202 44 
s#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 
s#FLOAT A 1 THROUGH IBUS REGISTER 1 
;*FLOAT A O THROUGH IBUS REGISTER 1 
§ PARAS KAAAASAREEAKSAKASASAASRAASEALAAAKEE EARS HARERLAEALELLREELA 
; TEST 41 
3 -3-fe ee ee ee eo Pe ew ee 
017260 012737 000041 001226 TST41: MOV #41, TSTNO 


ica ivgnedans 








qaoaeee 


CZOMC 


Liiccigitiahinnton: 





MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-28 
OMCi1 MICRO PROCESSOR IBUS TESTS 


017266 
017274 


017302 
017304 
017310 
017314 
017314 


017432 


012737 
012737 


012737 
012737 
012737 


104412 
912702 


017434 
017314 


000001 
000001 
000004 


000005 


017370 
000001 


000004 


000005 


000042 001226 TST42: 
017610 001216 
017470 001220 


000002 


001216 
001220 


001220 


65%: 


69%: 
67%: 


MOV ®TST42 ,NEXT 
MOV #643 ,LOCK 
MSTCLR 

MOV #1,R2 
MOV #1,R0 
MOV RO,4(R1) 
ROMCLK 

122100!1 

ROMCLK 
21005!<1420> 

MOV RO,RS 
MOVB SCR1),R4 
CMPB RS ,R4 
BEQ 65$ 

EMT 5 

SCOP 1 

CLC 

ROLB RO 

BNE 64$ 

MOV #67$,LOCK 
MOV #1,R0 
COM RO 

MOV RO.4(R1) 
ROMCLK 

122100!1 

ROMCLK 

21005! <1420> 

MOV RO,RS 
MOVB SCR1),R4 
CMPB RS ,R4 
BEQ 68$ 

EMT 5 

SCOP 1 

COM RO 

CLC 

ROLB RO 

BNE 69% 
SCOPE 


SEQ 67 


3R1 CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR DMCil 

sSAVE REGISTER ADDRESS FOR TYPECUT 
sSTART WITH BIT 0 


;PUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS REGISTER 1 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;sREAD FROM IBUS REGISTER 1 

sPUT EXPECTED IN R5S 

;PUT “FOUND” INTO R4 

;sDATA CORRECT? 

:BR IF YES 

;ERROR 

;SWO9=1? 

sCLEAR CARRY 

sSHIFT BIT IN RO 

:IF RO=0 THEN DONE 

sNEW SCOP1 

sSTART WITH BIT O 

sCHANGE TO FLOATING ZERO 


;PUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS REGISTER 1 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS REGISTER 1 

;PUT EXPECTED IN R5 

;PUT “FOUND” INTO R4 

sDATA CORRECT? 

;BR IF YES 

sERROR 

;SWO9=1? 

sCHANGE TO FLOATING 1 

;CLEAR CARRY 

sSHIFT BIT IN RO 

:IF RO=0 THEN DONE 

sSCOPE THIS TEST 


$2024600060640006040240000088 TEST 42 ££464464004440642048020420246 
;*#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 

3*FLOAT A 1 THROUGH IBUS REGISTER 2 

;*FLOAT A 0 THROUGH IBUS REGISTER 2 


5 00004606006 06600600 646004046066646066006002 048000020 00246402022402042244 028 


#42, TSTNO 


@TST43 ,NEXT 


#645 ,LOCK 


#2,R2 


sR1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR OMC1ii 
sSAVE REGISTER ADDRESS FOR TYPEOUT 
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017610 
017616 
017624 


012737 
012737 
012737 


122103 


000001 
000004 


017544 
000001 


000004 


000005 


Sees 


OMC11 MICRO PROCESSOR IBUS TESTS 


001220 


001226 TST43: 
001216 


001220 


65$: 


69%: 
673: 


MOV #1,R0 
MOV RO,4(R1) 
LK 


122100!2 

LK 
21005! <2420> 

RO.R5S 

MOVB SCR1),R4 
CMPB R5, 
BEQ 65% 
EMT 5 
SCOP 1 
CLC 
ROLB RO 
BNE 64$ 
MOV €67$ ,LOCK 
MOV #1,R0 
Com RO 


MOV RO,4(R1) 


122100!2 
ROMCLK 
21005! <2420> 
MOV RO,RS 
MOVB SCR1),R4 
CMPB RS .R4 
BEQ 68$ 
EMT 5 
SCOP 1 
COM RO 
CLC 
ROLB RO 
69$ 
SCOPE 


SEQ 68 


sSTART WITH BIT O 


;PUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:MOV DATA TO IBUS REGISTER 2 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS REGISTER 2 

;PUT EXPECTED IN R5 

sPUT “FOUND” INTO R4 

sDATA CORRECT? 

;BR IF YES 

;ERROR 

;SWO9=17 

;sCLEAR CARRY 

sSHIFT BIT IN RO 

:I1F RO=0 THEN DONE 

sNEW SCOP1 

;START WITH BIT O 

sCHANGE TO FLOATING ZERO 


;PUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;MOV DATA TO IBUS REGISTER 2 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;READ FROM IBUS REGISTER 2 

sPUT EXPECTED IN R5 

:PUT “FOUND” INTO R4 

sDATA CORRECT? 

;BR IF YES 

;ERROR 

;SWO9=1? 

;CHANGE TO ane 1 

;CLEAR CARRY 

sSHIFT BIT IN RO 

:IF RO=0 THEN DONE 

sSCOPE THIS TEST 


946666 6046464666466640664600006484808 TEST 43 cae cece cc eha beck ceceececbrae 
s*#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 

;*FLOAT A 1 THROUGH IBUS REGISTER 3 

;*#FLOAT A 0 THROUGH IBUS REGISTER 3 


§ 2S SRSKEASESEESEESEAAEKESE SS SEASSEAASAAASEAKEALAAALARELALSSELALELELE 


; TEST 43 

grrr cece rr nenee | 
MOV #43. TSTNO 
MOV #TST44 ,NEXT 
MOV 464$ ,LOCK 


MSTCLR 
MOV #3 Re 
MOV #1,R0 


MOV RO,4(R1) 





sR1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMCi1 

SAVE REGISTER ADDRESS FOR TYPEOUT 
sSTART WITH BIT O 


sPUT PATTERN INTO PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS REGISTER 3 





SEQ 69 
CZ0MC MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-30 nis 
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017654 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017656 021065 21005! <3420> sREAD FROM IBUS REGISTER 3 
017660 010005 MOV RO.RS ;PUT EXPECTED IN R5 
017662 116104 000005 MOVB SCR1),R4 ;PUT “FOUND” INTO R4 
017666 CMPB R5, ;DATA CORRECT? 
017670 001401 BEG 65$ ;BR IF YES 
017672 104005 EMT 5 ;ERRCR 
017674 104401 65$: SCOP 1 ;SWO9=17 
017676 000241 CLC ;CLEAR CARRY 
017700 106100 ROLB RO sSHIFT BIT IN RO 
017702 001360 BNE 64$ ;IF RO=0 THEN DONE 
017704 012737 017720 001220 MOV #67$ ,LOCK sNEW SCOP1 
017712 012700 000001 MOV #1,R0 sSTART WITH BIT 0 
017716 100 69%: COM RO ;CHANGE TO FLOATING ZERO 
017720 67%: 
017720 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORT4 
017724 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017726 122103 122100!3 sMOV DATA TO IBUS REGISTER 3 
017730 104414 ROMCLK s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017732 021065 21005! <3420> sREAD FROM IBUS REGISTER 3 
017734 010005 MOV RO,RS ;PUT EXPECTED IN R5 
017736 116104 000005 MOVB SCR1),R4 sPUT “FOUND” INTO R4 
017742 120504 RS ,R4 ;DATA CORRECT? 
017744 001401 BEQ 68$ ;BR IF YES 
017746 104005 EMT 5 ;ERROR 
017750 104401 685: SCOP1 ;SWO9=1? 
017752 005100 COM RO sCHANGE TO FLOATING 1 
017754 000241 CLC ;CLEAR CARRY 
017756 106100 ROLB RO sSHIFT BIT IN RO 
017760 001356 BNE 69% ;IF RO=0 THEN DONE 
017762 104400 SCOPE sSCOPE THIS TEST 
§%$06066464066040640060464460048400008 TEST 44 £664644664640460444444 48444444 
s#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 
;#FLOAT A 1 THROUGH IBUS REGISTER 4 
;#FLOAT A © THROUGH IBUS REGISTER 4 
j SSREAEAAEREEAEEASEAERASEEREAREAEAEREAKEEAAEEEESLEEEEEREEERELELLE 
; TEST 44 
rt ewew es e@aecacew@eeaees 
017764 012737 000044 001226 TST44: MOV #44, TSTNO 
017772 012737 020140 001216 MOV @TST45 ,NEXT 
020000 012737 020020 001220 MOV #64$ ,LOCK 
| sR1 CONTAINS BASE DMC11 ADDRESS 
020006 104412 MSTCLR s;MASTER CLEAR DMC11 
020010 012702 000904 MOV #4 ,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
oceans 012700 000001 nee MOV 41,R0 sSTART WITH BIT 0 
020020 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORT4 
020024 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020026 122104 122100!4 sMOV DATA TO IBUS REGISTER 4 
020030 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
020032 021105 21005! <4#20> sREAD FROM IBUS REGISTER 4 
020034 010005 MOV RO,R sPUT EXPECTED IN R5 
020036 116104 000005 MOVE SCR1),R4 ;PUT “FOUND” INTO R4 
020042 120504 CMPB R5, sDATA CORRECT? 








—_ 
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020140 


012737 
012737 
012737 


020074 
000001 


000004 


000005 


000045 
020314 
020174 


000005 
000001 
000004 


000005 


001220 


001226 TST45: 
001216 


001220 


65$: 


69%: 
67$: 


68%: 


65$: 
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BEG 65$ 

EMT 5 

SCOP 1 

CLC 

ROLB RO 

BNE 64$ 

MOV #67$ ,LOCK 
MOV #1,RO0 
COM RO 

MOV RO,4(R1) 
ROMCLK 

122100!4 

ROMCLK 

21005! <4420> 

MOV RO,.RS 
MOVB SCR1),R4 
CMPB RS ,R4 
BEQ 68$ 

EMT 5 

SCOP 1 

COM RO 

CLC 

ROLB RO 

BNE 69$ 
SCOPE 


;BR IF YES 
ERROR 


;SWO09-=1? 

;CLEAR CARRY 

;SHIFT BIT IN RO 

;IF RO=0 THEN DONE 

sNEW SCOP1 

sSTART WITH BIT O 
sCHANGE TO FLOATING ZERO 


sPUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS REGISTER 4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS REGISTER 4 

sPUT EXPECTED IN R5 

sPUT “FOUND” INTO R4 

sDATA CORRECT? 

;BR IF YES 

;ERROR 

;SWO9=17 

;CHANGE TO FLOATING 1 

;CLEAR CARRY 

sSHIFT BIT IN RO 

;IF RO=0 THEN DONE 

sSCOPE THIS TEST 


§ 220406446 646664646446448440eeh 0064 TEST 45 £646446446644646 46464406444 44444444 
;*#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 

3*#FLOAT A 1 THROUGH IBUS REGISTER 5 

;*#FLOAT A O THROUGH IBUS REGISTER 5 

§ 2 SPRREERAKESAASSSASSAASSALAEAARSEALKARAAAEEREAKEEAEARAKEEALEEE LE 


s TEST 45 

3 as weeaeeceeeaacaceaeese 
MOV #45, TSTNO 
MOV @TST46,NEXT 
MOV 964$ ,LOCK 
MSTCLR 

MOV #5 ,R2 
MOV #1,R0 
MOV RO,4(R1) 
ROMCLK 

122100!5 

ROMCLK 

21005! <54«20> 

MOV RO.RS 
MOVB S(R1),R4 
BEQ 65% 

EMT 5 

SCOP 1 

cLC 

ROLB RO 





sRi CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 

sSAVE REGISTER ADDRESS FOR TYPEOUT 
sSTART WITH BIT 0 


sPUT PATTERN INTO PORT4 


SEQ 70 


T WORD IS penn Bh ae ~ esa PC=5304 


sNEX 
;MOV DATA TO IBUS REGISTE 


sNEXT WORD IS ge Sh og ROMCLK PC=5304 


sREAD FROM IBUS REGIST 
3PUT EXPECTED IN R5 


sCLEAR CARRY 
sSHIFT BIT IN RO 





EE eee ee 





SEQ 71 


“=e. 
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020314 
020322 
020330 


012737 
012737 
012737 


OMC11 MICRO PROCESSOR IBUS TESTS 


020250 001220 
000001 


000004 


000005 


000046 
020470 
020350 


000006 
000001 
000004 


000005 


020424 
000001 


001226 TST46: 
001216 


001220 


001220 


69$: 
67%: 


68%: 


65$: 


69%: 
67%: 





BNE 64$ IF RO=0 THEN DONE 
MOV #67$ ,LOCK ;NEW SCOP1 
MOV #1,20 ;START WITH BIT 0 
COM RO ;CHANGE TO FLOATING ZERO 
MOV RO,4(R1) sPUT PATTERN INTO PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122100!5 sMOV DATA TO IBUS REGISTER 5 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ui 9p sREAD FROM IBUS REGISTER 5 
RO,RS ;PUT EXPECTED IN RS 
HOVE SCR1),R4 sPUT “FOUND” INTO R4 
CMPB R5, sDATA CORRECT? 
BEQ 68$ ;BR IF YES 
EMT 5 ;ERROR 
SCOP 1 ;SWO09=1? 
COM RO sCHANGE TO FLOATING 1 
CLC ;CLEAR CARRY 
ROLB RO ;SHIFT BIT IN RO 
BNE 69$ ;IF RO=0 THEN DONE 
SCOPE ;SCOPE THIS TEST 


¢$2646064446464644646464644440400004 TEST 46 £6446646664664464444644444 444444 
:*#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 

:*#FLOAT A 1 THROUGH IBUS REGISTER 6 

;*FLOAT A O THROUGH IBUS REGISTER 6 

§ 2S SERKERAEAESACALALKASASELALALAESLALESEAARALEAELALESEAEAKSERALSERES 


; TEST 46 
3 ns ecaeeceaacnanecece = 
MOV #46, TSTNO 
MOV @TST47 ,NEXT 
MOV 864% ,LOCK 
:R1 CONTAINS BASE DMC11i ADDRESS 
MSTCLR sMASTER CLEAR OMCi1 
MOV $6 ,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
MOV #1,R0 ;START WITH BIT O 
MOV RO,.4(R1) ;PUT PATTERN INTO PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
ere” iMOV DATA TO IBUS REGISTER 6 
XT WORD IS INSTRUCTION, ROMCLK PC=5304 

21005! <6420> ;READ FROM IBUS REGISTER 6 

RO,RS ;PUT EXPECTED IN R5 
HOVE 5(R1),R4 ;PUT “FOUND” INTO R4 
CMPB R5.R sDATA CORRECT? 
BEQ 65$ $ YES 
EMT 5 ' 
SCOP1 3SWO9=1? 
CLC ;CLEAR CARRY 
ROLB RO sSHIFT BIT IN RO 
BNE sIF RO=0 THEN DONE 
MOV #67$ ,LOCK sNEW SCOP1 
MOV oRO ;START WITH BIT 0 
COM 0 sCHANGE TO FLOATING ZERO 
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020470 
020476 
020504 


020512 


012737 
012737 
012737 


104412 
012702 
012700 


000004 


000047 001226 TST47: 
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020644 001216 
020524 001220 


000007 
000001 


000004 


000005 


020600 
000001 


000004 


001220 


65$: 


69%: 
67$: 


MOV RO,4(R1) 
LK 
122100 !6 
LK 
21005! <6420> 
RO, 
MOVB SCR1),R4 
CMPB RS, 
BEQ 68$ 
EMT 5 
SCOP 1 
OM RO 
Cc 
ROLB RO 
BNE 69% 
SCOPE 


SEQ 72 


;PUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS REGISTER 6 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;READ FROM IBUS REGISTER 6 

;PUT EXPECTED IN RS 

;PUT “FOUND” INTO R4 

sDATA CORRECT? 

;BR IF YES 

;ERROR 

;SWO9=17 

;CHANGE TO FLOATING 1 

;CLEAR CARRY 

;SHIFT BIT IN RO 

;IF RO=0 THEN DONE 

;SCOPE THIS TEST 


seb ee hehe eee ee eeeeeaeeacaeh TEST 47 shh ek ee eese ee ce eeea race cece 
;#MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 

;*FLOAT A 1 THROUGH IBUS REGISTER 7 

;*FLOAT A O THROUGH IBUS REGISTER 7 

£2 SRRRAASEAAASEABEEEEAKAEAEAAARABREASREARAEAAAKALRAELSEAAKALEALALAELES 


; TEST 47 
Q -nseaneenennanaeaeean @ 
MOV #47,TSTNO 
MOV #TSTSO,NEXT 
MOV #643 ,LOCK 
MSTCLR 
MOV #7,Re2 
MOV #1,R0 
MOV RO,4(R1) 
ROMCLK 
122100!7 

LK 
21005!<7420> 
MOV RS 
MOVB ScRI) «RA 

RS .R4 

BEQ 65% 
EMT 5 
SCOP 1 
CLC 
ROLB 
BNE 64% 
MOV #67$ ,LOCK 
MOV #1 .RO 
COM RO 
MOV RO,4(R1) 
ROMCLK 
122100!7 
ROMCLK 
21005! <7420> 





sR1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 

s;SAVE REGISTER ADDRESS FOR TYPEG.T 
sSTART WITH BIT 0 


sPUT PATTERN INTO PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV DATA TO IBUS REGISTER 7 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS REGISTER 7 

3PUT EXPECTED IN RS 


sSHIFT BIT IN RO 

sIF RO=0 THEN DONE 

sNEW SCOP1 

:START WITH BIT O 
;CHANGE TO FLOATING ZERO 


sPUT PATTERN INTO PORT4 
sNEXT WORD IS INSTRUCTION, oe PC=5304 
sMOV DATA TO IBUS REGISTER 7 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;READ FROM IBUS REGISTER 7 
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012737 
012737 
012737 


000005 


000004 
000017 
020720 


000360 


020746 


000005 


000010 


021016 
000001 


000360 


001226 
001216 
001220 


020720 


020746 


001220 


021032 


TSTSO: 


i$: 


5$: 


6$: 


2s: 


3$: 


;PUT EXPECTED IN RS 
:PUT “FOUND” INTO R4 
;DATA CORRECT? 

;BR IF YES 

sERROR 

;SWO9=1? 

;CHANGE TO FLOATING i 
;CLEAR CARRY 

;sSHIFT BIT IN RO 

;IF RO=0 THEN DONE 
sSCOPE THIS TEST 


§#h4444466446400460464044444004888 TEST 50 she ccehdcecas cease beheeebene 
;*MICRO PROCESSOR IBUS DUAL ADDRESS TEST 

;#WRITE ALL IBUS REGISTERS WITH INCREMENTING PATTERN 

;*READ ALL IBUS REGISTERS TO VERIFY CORRECT ADDRESSING 

§  RRARARAEAAEEEREEAERAEEREREAESEAAAAREABEAAEEERERAAASARKEALAEAAA KS 


sR1 CONTAINS BASE DMC1i1 ADDRESS 

sMASTER CLEAR DMC11 

sSTART WITH A ONE 

sR2 CONTAINS ADDRESS OF REGISTER 
sR3=REGISTER ADDRESS 

sWRITE DATA TO PORT4 

;sCLEAR ADDRESS FIELD OF INSTRUCTION 

sADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE DATA — REGISTER 


sIT TO BITS 4-7 

s;OF NEXT INSTRUCTION 

:;CLEAR ADDRESS FIELD 

sADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sREAD FROM IBUS REGISTER 

sPUT “EXPECTED” IN R5 

sPUT “FOUND” IN R4 

31S DATA CORRECT? 

;BR IF 


s INCREMENT PATTERN 
sINCREMENT REGISTER ADDRESS 


#7+1,R2 ;LAST ADDRESS DONE? 
1$ BR 


; TEST 50 
; ss eaeeecneaanaeacece 
MOV #50, TSTNO 
MOV #TST51 NEXT 
MOV #1$,LOCK 
MSTCLR 
MOV #1,R0 
CLR Re 
MOV R2,R3 
MOV RO,4(R1) 
BIC #17,5$ 
BIS R3.5$ 
ROMCLK 
122100 
ASL R3 
ASL R3 
ASL R3 
ASL R3 
BIC #360 ,6$ 
BIS R3,6$ 

LK 
21005 
MOV sRS 
MOVB SCR1),R4 

RS .R4 

BEQ es 
EMT 5 
SCOP 1 
INC RO 
INC R2 
CMP 
BNE 
MOV #3$,LOCK 
MOV ° 
CLR 
CLR RS 
BIC #360,7$ 


IF NO 


sNEW SCOP1 

sRESTART PATTERN TO 1 

sRESTART AT ADDRESS 0 

sRESTART AT ADDRESS 0 

;CLEAR ADDRESS FIELD OF INSTRUCTION 





SEQ 74 
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021024 050337 021032 BIS R3,7$ ;ADD ADDRESS TO INSTRUCTION 
021030 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021032 021005 7$: 21005 sREAD FROM IBUS REGISTER 
021034 010005 MOV RO.RS sPUT “EXPECTED” IN RS 
021036 116104 000005 MOVB 5(R1),R4 ;PUT “FOUND” IN RS 
1042 0504 CMPB »R4 sDATA CORRECT? 
021044 001401 BEQ 4$ :BR IF YES 
021046 104005 EMT 5 ;DUAL ADDRESSING ERROR 
021050 104401 4$: SCOP1 ;SWO9=17 
021052 005200 INC s INCREMENT PATTERN 
021054 005202 INC R2 ;NEXT ADDRESS 
1056 062703 000020 ADD #20,R3 ;ADD 1 TO ADDRESS IN R3(SHIFTED 4 TIMES) 
021062 022702 000010 CMP $7+1,R2 ;LAST ADDRESS DONE? 
021066 001353 BNE 3$ ;BR IF NO 
- 021070 104400 SCOPE ;SCOPE THIS TEST 
444066440 44644644468444R6e40eee TEST 51 £46464446464644464446 4444646464404 4% 
;*#MICRO PROCESSOR BR REGISTER TEST 
;#FLOAT A 1 THROUGH THE BR 
;#FLOAT A O THROUGH THE BR 
§ SARA EAEAEEEEREREEERARAEERAREKASAALAASEABASEALEAALELEALESE SAREE 
; TEST 51 
3 ae neenwanenaeaacanee 
021072 012737 000051 001226 TSTS51: MOV #51, TSTNO 
11 012737 021242 001216 MOV #TSTS2 .NEXT 
021106 012737 021122 001220 MOV #64$ ,LOCK 
3R1 CONTAINS BASE DMCi1 ADDRESS 
021114 104412 MSTCLR sMASTER CLEAR DMC1i1 
aesiae 012700 000001 aie v #1,RO0 sSTART PATTERN WITH BITO 
021122 010061 000004 MOV RO,4(R1) sWRITE PATTERN IN PORT4 
021126 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021130 120500 120500 sMOVE DATA TO THE BR REGISTER 
021132 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
11 061225 061225 sMOVE BR TO PORT 5 
021136 0005 MOV RS sPUT “EXPECTED” IN RS 
021140 116104 000005 MOVB SCR1),R4 3;PUT “FOUND” IN R4 
021144 120504 RS .R4 sDATA CORRECT? 
021146 001401 BEQ 65$ ;BR IF YES 
021150 104006 EMT 6 ;DATA ERROR 
021152 104401 65$: SCOP 1 
021154 000241 CLC s;CLEAR CARRY 
021156 106100 ROLB RO ;SHIFT BIT IN RO 
021160 001360 BNE 64% ;D0NE IF RO=0 
021162 012737 021176 001220 MOV 267% ,LOCK sNEW SCOP1 
021170 012700 000001 MOV #1,R0 sSTART PATTERN WITH BITO 
oeatae 005100 ane CoM RO sCHANGE TO FLOATING ZERO 
021176 010061 000004 MOV RO,4(R1) sWRITE PATTERN IN PORT4 
021202 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 120500 120500 sMOVE DATA TO THE BR REGISTER 
021206 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021210 061225 061225 sMOVE BR TO PORT 5S 
021212 Ol MOV RO,R5 sPUT “EXPECTED” IN R5 
021214 116104 000005 MOVB SCR1),R4 sPUT “FOUND” IN R4 
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021220 120504 CMPB RS .R4 sDATA CORRECT? 
021222 001401 BEQ 68% ;sBR IF YES 
021224 104006 EMT 6 ;DATA ERROR 
021226 104401 68%: SCOP 1 
021230 005100 COM RO sCHANGE BACK TO A ONE 
021232 000241 CLC s;CLEAR C4RRY 
021234 106100 ROLB RO ;SHIFT BIT IN RO 
021236 001356 69% ;DONE IF RO=0 
a2 021240 104400 SCOPE sSCOPE THIS TEST 
j REAEEEAEAESEKESEASEEESEEEEER TEST 52 cee ecchde hse cheeks heaeeee 
;#SCRATCH PAD TEST 
;*#FLOAT A 1 THROUGH EACH SCRATCH PAD LOCATION 
;*FLOAT A 0 THROUGH EACH SCRATCH PAD LOCATION 
§ 2s ERARAEAERASELEAASAREEREAAAEARAEARSEAEAEAAEEREAAAAAEAAREAEARKAEES 
; TEST 52 
3 -ss<«es ee ee eeee ee 
021242 012737 000052 001226 TSTS52: MOV #52, TSTNO 
021250 012737 021510 001216 MOV #TSTS3 NEXT 
021256 012737 021274 001220 MOV #64$ ,LOCK 
sR1 CONTAINS BASE DMC1ii ADDRESS 
021264 104412 MSTCLR sMASTER CLEAR DMC1i1 
021266 005002 CLR R2 sSTART AT ADDRESS ZERO 
021270 012700 000001 MOV #1 ,RO sSTART WITH BITO 
021274 042737 000017 021314 64%: BIC #17,65$ sCLEAR ADDRESS FIELD OF INSTRUCTION 
021302 050237 021314 BIS R2,65$ ;ADD ADDRESS TO INSTRUCTION 
021306 010061 000004 MOV RO,4(R1) sWRITE PATTERN TO PORT4 
021312 104414 - ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021314 123100 65$: 123100 sWRITE SCRATCH PADCADDRESS IN R2) 
0213516 042737 000017 021332 BIC #17,66$ sCLEAR ADDRESS FIELD OF INSTRUCTION 
021324 050237 021332 BIS R2 ,66$ sADD ADDRESS TO INSTRUCTION 
021330 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021332 0600 66$: 040600 sMOV SP TO BR 
021334 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021336 061225 061225 sMOVE BR TO PORTS 
021340 010005 MOV »RS sPUT “EXPECTED” = RS 
021342 116104 000005 MOVB SCR1),R4 sPUT “FOUND” IN 
021346 120504 CMPB RS .R4 sDATA CORRECT 
021350 001401 BEQ 67$ ;BR IF YES 
021352 104007 EMT 7 sDATA ERROR 
1354 104401 67$: SCOP 1 3SWO9=17? 
021356 000241 CLC sCLEAR CARRY 
021360 106100 ROLB RO sSHIFT BIT IN RO 
021362 001344 BNE 64$ sDONE IF RO=0 
021364 012737 021400 001220 MOV 069% ,LOCK sNEW SCOP1 
021372 012700 000001 MOV #1,R0 sSTART WITH BITO 
021376 005100 73$: COM RO ;CHANGE TO FLOATING ZERO 
021400 042737 000017 021420 69%: BIC #17,70$ s;CLEAR ADDRESS FIELD OF INSTRUCTION 
1406 050237 021420 BIS Re ,70$ ;ADD ADDRESS TO INSTRUCTION 
021412 010061 000004 MOV RO,4(R1) sWRITE PATTERN TO PORT4 
021416 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021420 123100 70$: 123100 {WRITE SCRATCH PADCADDRESS IN R2) 
021422 042737 000017 021436 BIC #17,71$ sCLEAR ADDRESS FIELD OF INSTRUCTION 
021430 050237 021436 BIS R2,71$ sADD ADDRESS TO INSTRUCTION 
021434 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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021510 
021516 
021524 


021532 
021534 


012737 
012737 
012737 


104412 
012700 


000005 


000001 
000020 


000053 
021732 
021542 


000001 


000017 
021564 
000004 


000017 


021602 


000005 


000020 


001226 
001216 
001220 


021564 


021602 


71%: 


72%: 


TSTS3: 


1$: 


2s: 


3$: 


4$: 


040600 

ROMCLK 

061225 

MOV RO.RS 
MOVB 5(R1).R4 
CMPB RS ,R4 
BEQ 72$ 
EMT 7 
SCOP 1 

COM RO 

CLC 

ROLB RO 

BNE 73$ 
MOV #1,R0 
INC R2 

CMP #20,R2 
BNE 64$ 
SCOPE 





SEQ 76 


sMOV SP TO BR 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORTS 

sPUT “EXPECTED” IN R5 

sPUT “FOUND” IN R4 

oe ae CORRECT 

7B YES 


OATA ERROR 

;SWO9=1? 

;CHANGE BACK TO A ONE 
;CLEAR CARRY 

;SHIFT BIT IN RO 
;DONE IF RO=0 
sRESTART AT BIT O 
NEXT SP ADDRESS 


; 
;LAST ADDRESS? 


:BR IF NO 
;SCOPE THIS TEST 


sehhehsessseeaseeeseseeeecae TEST 53 £64644466446446464464644644044444 
;*#SCRATCH PAD DUAL ADDRESSING TEST 

s*#WRITE AN INCREMENTING PATTERN IN ALL SP LOCATIONS 

;*READ ALL SP LOCATIONS TO VERIFY CORRECT ADDRESSING 

§ Ss SRRERERESASE EE SEAREAEAAAARESEAEASEERAEEREEAREAEEALERAEEEEEEEES 


; TEST 53 

6 eeuwvencececaceacaaaane 
MOV #53, TSTNO 
MOV STSTS4 NEXT 
MOV #1$,LOCK 
MSTCLR 

MOV #1,R0 
CLR R3 

MOV R3 Re 
BIC 17,23 
BIS R2.2$ 
MOV RO,4(R1) 
ROMCLK 

123100 

BIC #17,3% 
BIS R2.3% 
ROMCLK 

60600 

ROMCLK 

61225 

MOV RS 
MOVB SCR1),R4 
CMPB oR4 
BEQ 4S 

EMT 7 

SCOP 1 

INC RO 

INC R3 

CMP #20,R3 
BNE i$ 





#R1 CONTAINS BASE DMC1i1 ADDRESS 
sMASTER CLEAR OMC1i 
sSTART WITH A 1 
;ADDRESS 0 
sMOVE ADDRESS TO R2 
;CLEAR ADDRESS FIELD 
;ADD ADDRESS TO INSTRUCTION 
SWRITE PATTERN TO PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE SPCADDRESS IN R2) 
;CLEAR ADDRESS FIELD OF INSTRUCTION 
;ADD ADDRESS TO INSTRUCTION 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV SP TO BR 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOV BR TO PORTS 
ou “EXPECTED” IN R5 


tENCREMENT PATTERN 
sNEXT ADDRESS 

sLAST ADDRESS DONE? 
;BR IF NO 











———xxo-w oe 


SEQ 77 


CZOMC MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-38 
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021640 012737 021654 001220 MOV #5$,LOCK ;NEW SCOP1 
021646 912700 000001 MOV #1,R0 sRESTART PATTERN AT 1 
021652 005003 CLR sRESTART AT ADDRESS ZERO 
021654 010302 $ MOV R3.R2 ;PUT ADDRESS IN R2 
021656 042737 000017 021672 BIC #17,6$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
021664 050237 021672 BIS .6$ ;ADD ADDRESS TO INSTRUCTION 
021670 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021672 06 6$: 60600 sMOV SP TO BR 
021674 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021676 061225 61225 sMOV BR TO PORTS 
021700 O1 MOV RO,RS sPUT “EXPECTED” IN R5 
021702 116104 000005 MOVB 5(R1),R4 ;PUT “FOUND” IN R4 
021706 CMPB RS .R4 sDATA CORRECT? 
021710 001401 BEQ 7$ :BR IF YES 
021712 104007 EMT 7 3SP ADDRESSING ERROR 
021714 104401 7$: SCOP1 ;SWO9=17 
021716 005200 INC RO s INCREMENT PATTERN 
021720 005203 INC R3 sNEXT ADDRESS 
1722 022703 000020 CMP #20,R3  ;LAST ADDRESS DONE? 
021726 001352 BNE 53 ;BR NO 
a 021730 104400 SCOPE ;SCOPE THIS TEST 
§$266660466666046064646466404404000 TEST 54 £6664646464646064446464444664646446 644% 
s*#INTERRUPT TEST 
s*TEST THAT DEVICE CAN INTERRUPT TO VECTOR A 
§ 2466064666 6060464464660666 0644464666 660044644666066646464444464044606466464 44 
; TEST S4 
3 eee ean eaaenaenaaanane ae 
021732 012737 000054 001226 TSTS4: MOV #54, TSTNO 
021°40 012737 022026 001216 MOV @TSTSS ,NEXT 
3R1 CONTAINS BASE DMC11 ADDRESS 
021746 000005 RESET ;BUS RESET 
021750 005011 CLR CR1) ;CLEAR RUN 
021752 004537 034642 JSR RS, SETVEC ;SET UP VECTORS 
021756 022020 3$ 3XX0 
021760 022016 2$ 3XX4 
021762 340 340 -BYTE 340,340 sLEVEL 7 
021764 012737 000340 177776 1%: MOV 0340 ,PS 3sPS = LEVEL 7 
021772 012761 000200 000004 MOV #200 ,4(R1) sWRITE PORT4 
022000 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
022002 121111 121111 ;SET BR RQ IN IBUS* REG 11 
2004 005037 177776 CLR PS sALLOW INTERRUPT 
022010 000240 NOP 
022012 104010 EMT 10 sNO INTERRUPT 
022014 000403 BR 4S 
022016 104011 2$: EMT 11 ;WRONG VECTOR 
2020 012706 001200 33: MOV @STACK ,SP sRESET STACK 
a 022024 104400 4$: SCOPE sSCOPE THIS TEST 


§$O006460606404664600460000068008 TEST 55 £6£264646466468628266660646040606 
s*INTERRUPT TEST 
s*TEST THAT DEVICE CAN INTERRUPT TO VECTOR B 

§ 3 $8 4040006046 0646446466 464640460606446006666004606460640066 066666066046 86448 





- 
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012737 
012737 


012737 
012737 


177776 


001200 


000056 
022240 


000340 
177776 
001366 


177437 
034642 

340 
000200 


177776 


001226 
001216 


177776 
000004 


001226 TST56: 
001216 


TSTSS: 


1%: 


23: 
4s: 
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¢ 
MOV #55, TSTNO 
MOV @TSTS6 .NEXT 


MSTCLR 

JSR RS ,SETVEC 
2s 

3$ 

-BYTE 340,340 


MO #340 ,PS 
MOV #300 ,4(R1) 


121111 

CLR PS 

NOP 

EMT 10 

BR as 

EMT 

MOV @STACK ,SP 
SCOPE 


SEQ 78 


sR1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMCi1 

;SET UP VECTORS 

3XX0 

3XX4 

sLEVEL 7 

7PS = LEVEL 7 

sWRITE PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;SET BR RQ IN IBUSs REG ii 
sALLOW INTERRUPT 


;NO INTERRUPT 
;WRONG VECTOR 


sRESET STACK 
sSCOPE THIS TEST 


§$666660640606066004664046468000 TEST 56 ££6464644640446646668464464664648 
s*#PRIORITY INTERRUPT TESTS 

s#SET PS TO ALL BR LEVELS EQUAL OR GREATER THAN 

s#THE DOMC1ii LEVEL, VERIFY THAT OMC11 DOES NOT INTERRUPT 

§ 5 $$O0600600606 606466606606 6466606006460604 4464664044046 60664664806460440844 


3 
MOV #56. TSTNO 


MOV @TSTS7 ,NEXT 


MSTCLR 
MOV #340 ,R2 
MOV R2,.PS _ 
MOV STAT1,RO 
ASR RO 
ASR RO 
ASR RO 
ASR RO 
BIC #177437,R0 
JSR RS ,SETVEC 
2s : 
2s 
-BYTE - 54¢ 
Vv #200,4(R1) 
121111 
Vv R2.PS 

RO ,R2 
BEQ i$ 

@40,,R2 

3 
SCOPE 





sR1 CONTAINS BASE DMC11 ADDRESS 
AR DMCii 


:SHIFT RO 4 TIMES 
310 GET PROPER LEVEL 


sCLEAR UNWANTED BITS 
VECTORS 


PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sSET BR REQUEST 
sPUT LEVEL IN R2 IN PS 


zs oe PS LEVEL = TO DMC LEVEL 

4 

sNO GET NEXT LOWER LEVEL IN R2 
INVE WITH TEST 


sAND CONT 
;SCOPE THIS TEST 








ee > 





SEQ 79 
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022234 
022236 
50 


022376 
022402 


C2 
OMCi1 INTERRUPT TESTS 


104020 
000002 


012737 
012737 


012737 
012737 


000057 
022404 


000340 
177776 
001366 


177437 
000040 
034642 


340 
000200 


177776 


000140 
000040 


022350 


022350 


000060 001226 ITST60: 


2s: 


001226 1ST157: 


001216 


000004 4%: 


5$: 


6$: 


1$; 
2s: 


3%: 


022510 001216 


Riicchctisae chess 





EMT 20 sERROR UNEXPECTED INTERRUPT 


RTI 


§06466666046666664646464406404040066 TEST 57 £646462060646620646440446446060406% 
s*PRIORITY INTERRUPT TESTS 

3#SET PS TO ALL BR LEVELS LESS THAN THE OMC11 LEVEL 

s*VERIFY THAT THE DMC11 WILL INTERRUPT 


£5 SS OSSESEESSESAEESSAESEESSSSAS SAAS SAKE AASALALALASESEALALALALELES 


s TEST 57 
3 nn en ee ee ee ee 
MOV #57, TSTNO 
MOV #TST60,NEXT 
7R1i CONTAINS BASE DMCi1 ADDRESS 
MSTCLR sMASTER CLEAR DMCi1 
MOV $340 ,R2 7PUT LEVEL 7 IN R2 
MOV R2,PS sSET PRIORITY TO 7 
MOV STATI. RO ;GET BR LEVEL OF DMC11 
ASR RO ;SHIFT RO 4 TIMES 
ASR RO :T0 GET PROPER LEVEL 
ASR RO 
ASR RO 
BIC #177437,R0 ;CLEAR UNWANTED BITS 
MOV RO ,R2 sPUT DMC LEVEL IN R2 
SUB #40 ,R2 ;GET NEXT LOWER LEVEL IN R2 
JSR R5 ,SETVEC ;SET UP VECTORS 
es :A VECTOR 
3$ 3:8 VECTOR 
-BYTE 340,340 sPRIORITY 7 
MOV #200 ,4(R1) ;LOAD PORT4 
ROMCLK ~ sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121111 :SET BR REQUEST 
ro R2,.PS ;PUT LEVEL IN R2 IN PS 
EMT 10 sERROR, NO INTERRUPT 
CMP #140 ,R2 :IS IT DOWN TO LEVEL 3 YET? 
CEQ i$ ;YES,DMC DID NOT INTERUPT, ERROR 
SUB $40,R2 sPUT NEXT LOWER LEVEL IN R2 
BR 43 sCONTINUE TEST 
SCOPE sSCOPE THIS TEST 
fo 06$,(SP) ;SET UP FOR RTI 
EMT 11 7 sERROR, WRONG VECTOR 
he 06$,(SP) ;SET UP FOR RTI 


5266060646464 6066464046446046046000682 TEST 60 £64666466446464664 4646446464464 0644 


;aNPR TEST | 
;#TEST OF DATO, 1 WORD FROM UPROC TO 11 MEMORY 


£2 SHSREAEEAEEALSEEEEAEKEAAAAEAEARAAAALEAEASALE ASL ALAC AAA EL ELEEELA 


TEST 60 
HOV #60, TSTNO 
MOV 8TST61,NEXT 

















—_- o—_— 
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sR1 CONTAINS BASE DMC11 ADDRESS 


022420 RESET :BUS RESET 
022422 005011 CLR (R1) ;CLEAR RUN 
022424 005061 000004 CLR 4(R1) ;CLR PORT4 
022430 004537 034664 JSR RS ,.NPRSET ;SET UP IBUS REG 0-7 
022434 0 :IN DATA 
022436 177777 -1 ;OUT DATA 
022440 022506 3$ ;IN BA 
022442 022504 2s ;OUT BA 
022444 005037 022504 CLR 23 ;sCLEAR 2$ 
022450 012761 000021 000004 MOV #21,4(R1) sWRITE PORT4 
022456 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
22 121110 121110 ;SET NPR BITS IN IBUS« REG 11 
022462 000240 NOP 
022464 012705 177777 MOV #-1,R5 ;PUT “EXPECTED” IN RS 
022470 013704 022504 MOV 23 ,R4 ;PUT “FOUND” IN R4 
022474 020504 CMP R5,R4 ;DATA CORRECT? 
022476 001401 BEQ 4$ ;BR IF YES 
02 104012 EMT 12 sERROR NPR FAILED 
022502 104400 4$: SCOPE ;SCOPE THIS TEST 
022504 000000 2s: 0 3; OUT 
022506 000000 33; 0 ;IN BA 
55 
$2O6S446 464444064 444s eae KEA TEST 6] £h42 4464 SEEEKEEEEEEREREL EERE 
;#NPR TEST 
s#TEST OF DATI, 1 WORD FROM 11 MEMORY TO UPROC 
§ S SHSSESSKAAAASABALALESEASLEAASAAEEAEESASASEASASRESEALALEALEELE LEDS 
; TEST 61 
4 ee ee ee ee ee ee ee ee 
022510 012737 900061 001226 TST61: MOV $61, TSTNO 
022516 012737 022624 001216 MOV #TST62,NEXT 
3R1 CONTAINS BASE DMC11 ADDRESS 
022524 104412 MSTCLR sMASTER CLEAR DMC1i1 
2526 005061 000004 CLR 4(R1) ;CLR PORT4 
022532 004537 034664 JSR RS ,NPRSET :SET UP IBUS REG 0-7 
022536 00 0 ;IN DATA 
022540 177777 -1 ;OUT DATA 
022542 022622 3$ :IN BA 
2544 022620 28 ;O0UT BA 
022546 012737 177777 022622 MOV 4-1,3% :PUT DATA IN 3$ 
022554 012761 000001 000004 MOV 1, 4(R1) sWRITE PORT4 
022562 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
022564 121110 121110 ;SET NPR BITS IN IBUS« REG ii 
022566 240 NOP 
022570 012705 177777 MOV $-1,R5 7PUT “EXPECTED” IN R5 
022574 104414 ROMCLK sNEXT WORD IS INSTRUCTION, oy ga PC =5304 
022576 0621004 021004 ;MOVE IN DATA LOW BYTE TO PORT4 
022600 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
022602 021025 021025 ;MOVE IN DATA HIGH BYTE TO PORTS 
022604 016104 000004 MOV 4(R1),R4 sPUT “FOUND” IN R4 
022610 020504 CMP R5 .R4 ;DATA CORRECT? 
022612 001401 BEQ 4$ ;BR IF YES 
022614 104012 EMT 12 ;ERROR NPR FAILED 
022616 104400 4$: SCOPE sSCOPE THIS TEST 
022620 000000 2$: 0 ;O0UT BA 








LL EEL 
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022622 000000 3$: 0 ;IN BA 


57 


022724 


012737 
012737 


104412 
5061 


012737 
012737 


104412 
013737 
013737 
004537 
000000 


125252 
000000 


121111 


000062 
022726 


000004 
034664 


022722 
000221 


177400 
022722 


000063 
023064 


001412 
001412 
034664 


000014 


001226 TST62: 


001216 


000004 


001226 
001216 


022772 
022770 


000004 


4$: 
3$: 


TST63: 


23: 
1$: 


5 2O6404664664466466446464646440444400 TEST 62 e064 be ease eeeeeceskbbehs he be 
;@NPR TEST 
s#TEST OF DATOB, 1 BYTE FROM UPROC TO 11 MEMORY 


oS SE SEEEASEAASEAAEAASASEAAAEAEAEAAEAESAAASEA EASES AREA KAAAAKEKK KS ES 


; TEST 62 
Wee: ion ee 

MOV #62, TSTNO 
MOV #TST63 NEXT 
MSTCLR 

CLR 4(R1) 

JSR RS .NPRSET 
0 

-1 

3$ 

2$e1 ;O0UT BA 
CLR 2$ 

MOV #221,4(R1) 
ROMCLK 

121110 

NOP 

MOV #177400,R5 
MOV WR4 

CMP R5,R4 

BEQ 4$ 

EMT 12 

SCOPE 

0 

0 


;R1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 

;CLR PORT4 

SSET UP IBUS REG 0-7 

;IN DATA 

;OUT DATA 

;IN BA 


sCLEAR 2$ 

sWRITE PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;SET NPR CITS IN IBUS* REG 11 


sPUT “EXPECTED” IN RS 
;PUT “FOUND” IN R4 
;DATA CORRECT? 
;BR IF YES 
sERROR NPR FAILED 
stg Fe TEST 


;IN BA 


§$660606064604604640460640006h004008 TEST 63 £66604444464464 404046446 0444844 
s#TEST OF EA BITS 16 AND 17 
:#D0 A DATO TO AN ADDRESS USING OUT BA BITS 16 AND 17 


;#VERIFY CORRECT RESULTS 
j S SHHEREAESEAEAASEAAAREEEAEAEESEEESAAERSEAREELERESSEALALAEELADEEE 


; TEST 63 

3 wea ecacauuauacmeaenzA #22 4 & 
MOV $63, TSTNO 
MOV @TST64 ,NEXT 
MSTCLR 

MOV DMPO4 , 1$ 
MOV DMPO4 ,2$ 
- R5 ,NPRSET 
125252 

0 

0 

MOV #14,4(R1) 
ROMCLK 

121111 


7R1 CONTAINS BASE DMC11 ADDRESS 

sMASTER CLEAR DMC1i1 

;USE SEL4 FOR ADDRESS 

;USE SEL4 FOR ADDRESS 

;LOAD BA AND DATA 

:IN DATA 

;OUT DATA 

:IN BA 

sOUT BA 

sLOAD SEL 4 WITH OUT BAI6 AND 1 

sNEXT WORD IS INSTRUCTION, ~ Re PC=5304 
:SET OUTBA 16 AND 17 
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023064 
023072 


012761 


012737 
012737 


000021 
121110 
003000 
000400 
121110 


000004 


000064 
023210 


001412 
001412 
034664 


000015 
121110 
003000 
000400 


121110 


000004 


000004 
000006 


001226 
001216 


023130 
023126 


000004 
000006 


3$: 


TST64: 


2s: 
1$: 


3$: 





#21,4(R1) 


#121110,6(R1) 


SEQ 82 


;LOAD SEL4 
sPUT INSTRUCTION IN SEL6 


#B8IT9!BIT10,(R1);SET CROMI AND CROMO!! 
b 


#BIT8.(R1) 
#121110,R5 


4(R1),R4 
R5,R4 

3$ 

12 


sCLOCK IT 


;WAIT FOR NPR 


sPUT “EXPECTED” IN RS 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE OUT DATA LB TO SEL4 

|NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE OUT DATA HB TO SELS 

;PUT “FOUND” IN R4 

sCORRECT RESULTS ? 

;BR IF YES 

sERROR BA 16 AND 17 FAILED 

;SCOPE THIS TEST 


heehee sees ee sssesescseaesnss TEST 64 cee bese sene cece eeceeeaneaase 
s#TEST OF EA BITS 16 AND 17 
:#D0 A DATI USING IN BA BITS 16 AND 17 


s#VERIFY CORRECT RESULTS 


§  SREREAERESEAASEASAARARAARAAAAREEAREAASEAAAKAEALALESESEAEE KEELER 


: TEST 64 

HOV #64, TSTNO 
MOV = @TST65,, NEXT 
MSTCLR 

MOV DMPO4,1$ 
MOV DMPO4 ,2$ 
- RS ,NPRSET 
125252 

0 

0 

MOV #15,4(R1) 
MOV #121110,6(R1) 
MOV 

BIS #BIT8,(R1) 
NOP 

MOV $121110,R5 
ROMCLK 

021004 

ROMCLK 

021025 

MOV 4(R1),R4 
CMP R5, 4 

BEQ 3$ 

EMT 12 

SCOPE 


7R1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC1i1 

;USE SEL4 FOR ADDRESS 

sUSE SEL4 FOR ADDRESS 

;LOAD BA AND DATA 

:IN DATA 


;LOAD SEL4 
sPUT INSTRUCTION IN SEL6 


@BIT9!BIT10, C(R1);SET CROMI AND CROMO!! 


sCLOCK IT! 

;WAIT FOR NPR 

SPUT “EXPECTED” IN RS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE IN DATA LB TO SEL4 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE IN DATA HB TO SEL5 

;PUT “FOUND” IN R4 

sCORRECT RESULTS ? 

;BR IF YES 

sERROR BA 16 AND 17 FAILED 

;SCOPE THIS TEST 


$hbae66OS644446 44 ES SERRE TEST 65 £64466444646404440464444642442 4% 
;*#NPR NON-EXISTENT MEMORY TEST 

;#D0 A DATO TO A NON-EXISTENT ADDRESS 

;*VERIFY THAT THE NON-EXISTENT BIT SET IN IBUS REG 11 








CZOMC 


OMC11 NPR TESTS 


60 





MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-44 


023316 


023320 
023326 


012737 
012737 


012737 
012737 


000065 
023320 


034664 


000014 


000021 


177776 


000066 
023426 


034664 


000004 


000015 


001226 TST65: 
001216 


000004 


001226 TST66: 
001216 


000004 


1$: 


§ 5 SSESESESESEEEESEEE GL EAASEALALALAALAAAARALEAALASARAAKEAAALAAAREERES 


; TEST 65 
ane wiih anewe« 
MOV #65, TSTNO 
MOV #TST66 ,NEXT 
3R1 CONTAINS BASE DMCi1 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
JSR RS .NPRSET ;LOAD IBUS REGISTERS 0-7 
0 ;IN DATA 
0 ;OUT DATA 
177320 ;IN BA 
177320 ;OUT BA 
MOV #14,4(R1) ;SET OUT BA BITS 16+17 IN PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121111 ;SET OUTBA 16 AND 17 
MOV #21,4(R1) ;SET NPR REQUEST BITS IN PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
— ;MOV IBUS* 4 TO IBUS«* 10 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121225 sMOV IBUS#11 TO IBUSs5 
MOV #1,R5 ;PUT “EXPECTED” IN R5 
MOVB 5(R1),R4 sPUT “FOUND” IN R4 
BIC #177776,R4 ;CLEAR UNWANTED BITS 
CMP R5,R4 sDATA CORRECT? 
BEQ i$ ;BR IF YES 
EMT 12 sERROR NON-EXISTENT MEM BIT FAILED TO SET 
SCOPE ;SCOPE THIS TEST 


eehshseseseseeesescsesecescea TEST 66 ££44464464444464446424444444444 
s*#NPR NON-EXISTENT MEMORY TEST 

;#D0 A DATI FROM A NON-EXISTENT ADDRESS 

s#VERIFY THAT THE NON-EXISTENT BIT SET IN IBUS REG 11 

j MARR ESSASEAAAASSEAEAASERERAEEAASARACEREERASE ES EEAREEEEEEEEEERES 


; TEST 66 
3 =ees ea en eeeeseas ¢ @& 
MOV #66, TSTNO 
MOV #TST67,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC1i 
JSR RS .NPRSET ;LOAD IBUS REGISTERS 0-7 
0 :IN DATA 
;O0UT DATA 
177320 :IN BA 
177320 ;OUT BA 
CLR 4(R1) 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121111 ;CLEAR NON-EXISTENT BIT 
MOV #15,4(R1) :SET NPR REQUEST BITS IN PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
gia sMOV IBUS* 4 TO IBUS« 10 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121225 sMOV IBUS411 TO IBUS«5 
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012705 
116104 
042704 


020504 
001401 
104012 
104400 


012737 
012737 
012737 


104412 
005037 
005000 
012702 


000001 
000005 
177776 


000067 
000003 
023624 


023622 
036566 
023514 
023520 
000001 


023514 
034664 


000221 000004 


177400 
023622 


001304 
036566 


001226 
001222 
001216 


1$: 


TST67: 


1$: 


2s: 
4$: 


3$: 


6$: 


MOV #1,R5 sPUT “EXPECTED” IN RS 

MOVB SCR1),R4 sPUT “FOUND” IN R4 

BIC #177776,R4 ;CLEAR UNWANTED BITS 

CMP R5, sDATA CORRECT? 

BEQ i$ ;BR IF YES 

EMT 12 sERROR NON-EXISTENT MEM BIT FAILED TO SET 
SCOPE ;SCOPE THIS TEST 


5464664404466 446 464464 446444444404 TEST 67 bebe ee eee heehee he eeeeadese 
;#NPR TEST 
:*#USING DATO, NPR A BINARY COUNT (0-377 ) 

:*FROM MICRO-PROCESSOR TO ALL AVAILABLE MEMORY 

$s SERRERESEAEACAEAEKERAEEASALEREAREREEEREAARAKAESAAAAAREE RARE AKA ES 


; TEST 67 

; asec een eaaaaae ee 

MOV #67, TSTNO 

MOV #3, ICOUNT 

MOV #TST70,NEXT 

MSTCLR 

CLR 5$ 

CLR RO 

MOV #CORMAX,R2 

MOV RO.2$ 

MOV R2,4¢ 

BIT #BITO,R2 

BEQ + 

SWAB 2$ 

- RS ,.NPRSET 

0 

0 

0 

CLRB (R2) 

MOV #221 ,4(R1) 

ROMCLK 

121110 

NOP 

MOV RS 

MOVB CR2),R4 
RS ,R4 

BEQ 3$ 

EMT 2i 

SCOP1 

INC 

BIC #177400,R0 

TST S$ 

BEQ 6$ 

TST RO 

BEQ 7$ 

INC R2 

CMP MEMLIM ,R2 

BNE i$ 

MOV #CORMAX,R2 


sRi CONTAINS BASE DMC1i ADDRESS 
sMASTER CLEAR DMC1i1 
pol FLAG AT 0 


:DA 

;ADDRESS 

;LOAD DATA 

;LOAD BA 

:IS BA ODD? 

;BR IF NO 

;IF ODD PUT DATA IN HI-BYTE 


sLOAD NPR REGISTERS 
:IN DATA 


BA 
;CLEAR gh LOCATION 
;LOAD PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3D0 THE NPR 


sPUT “EXPECTED” IN RS 

sPUT “FOUND” IN R4 

sIS DATA CORRECT? 

;sBR IF YES 

sERROR, DATA INCORRECT 
| 


sNEXT egy gs 


s;USE ONLY LOW BYTE 
sHAS MAX MEMORY BEEN REACHED YET? 


sREACHED MEMORY LIMIT YET? 
sBR IF NOT 
sRESTART BA AT FIRST ADDRESS 


SEQ 84 
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023610 
023616 
023620 
023622 


023752 
023760 


012737 
000722 
104400 
000000 


012737 
012737 
012737 


012737 
012737 


177777 


000005 


000400 


000071 
024104 





023622 


001226 
001216 
001220 


023672 


001226 TST71: 
001216 


7$: 
5%: 


TST70: 


67$: 


#-1,5$ 


SEQ 85 


;SET FLAG TO END TEST AT END OF DATA PATTERN 
ONTINUE 


sSCOPE THIS TEST 

sTHIS LOCATION IS A FLAG, IT STARTS AT O, 

sAND IS SET TO -1 WHEN LAST MEMORY ADDRESS 

sIS USED, TEST IS THEN ENDED WHEN PATTERN IS FINISHED 


5 $40406460646466646464664464444400004 TEST 70 £64446444464644 446444644444 46444 


;#MAIN MEMORY TEST 


;#FLOAT A 1 THROUGH ALL MAIN MEMORY LOCATIONS 
$s SRREAESRSSESEESESEASEAAEAEAAEEARESAEEAREREEAAARLEREE EE RERERE EE 


s TEST 70 

3 -s eee ene ee nee ee 

MOV #70, TSTNO 

MOV @TST71,NEXT 

MOV #65$ ,LOCK 

MSTCLR 

CLR 

MOV #1,R0 

BIC #377 ,66$ 

BIS R2 ,66$ 

ROMCLK 

010000 

MOV RO,4(R1) 

ROMCLK 

122500 

ROMCLK 

040620 

ROMCLK 

61225 

MOV oRS 

MOVB SCR1),.R4 
R5,R4 

BEQ 67$ 

EMT - 13 

SCOP 1 

CLC 

ROLB RO 

BNE 65% 

INC Re 

CMP #400 ,R2 

BNE 1$ 

SCOPE 


3R1 CONTAINS BASE DMC1ii ADDRESS 
sMASTER CLEAR DMCi1 
sSTART WITH ADDRESS 0 
sSTART WITH BIT O 

;CLEAR ADDRESS FIELD OF INSTRUCTION 
sADD ADDRESS TO INSTRUCTION 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sLOAD MAR WITH ADDRESS IN R2 
sWRITE PATTERN IN PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE PORT4 TO MEMORY 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE MEMORY TO BR 
sNEXT WORD IS INSTRUCTION, .OMCLK PC=5304 
sMOVE BR TO PORTS 
sPUT “EXPECTED” IN R5 
sPUT “FOUND” IN R4 


:DATA ERROR 
;SWO9=1? 

;CLEAR CARRY 
;SHIFT BIT IN RO 
;DONE IF RO=0 
:NEXT ADDRESS 
;LAST ADDRESS 
;BR IF NO 

;sSCOPE THIS TEST 


$h&ebOO2646464444 44 bebe eee ES TEST 7] £6646444464464644464446 440244608 


s*#MAIN MEMORY TEST 


;*FLOAT A 0 THROUGH ALL MAIN MEMORY LOCATIONS 
Petrie PT errr irr rrr rete titi rire t tit itiiti itt tttit titty 


; TEST 71 

3 wae eneen ec eee e eee 

MO #71, TSTNO 
MOV #TST72,NEXT 
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023766 


024102 


012737 
104412 


012737 
012737 
012737 


024006 001220 


000005 


000400 


024022 


001226 
001216 
001220 


024146 


1%: 
64%: 
65%: 


66%: 


67%: 


TST72: 


i$: 


23: 


BNE 
SCOPE 


#65$ ,LOCK 


R2 
#1,R0 
RO 

#377 ,66$ 
R2 ,66$ 


RO,4(R1) 





eee a — eee 


;R1 CONTAINS BASE DOMC11 ADDRESS 
sMASTER CLEAR DMC1i 
sSTART WITH ADDRESS 0 
;START WITH BIT O 
;CHANGE TO FLOATING 0 
;CLEAR ADDRESS FIELD OF INSTRUCTION 
;ADD ADDRESS TO INSTRUCTION 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR WITH ADDRESS IN R2 
:WRITE PATTERN IN PORT4 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:MOVE PORT4 TO MEMORY 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;sMOVE MEMORY TO BR 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORTS 
sPUT “EXPECTED” IN RS 
:PUT “FOUND” IN R4 
;DATA CORRECT? 
;BR IF YES 
;DATA ERROR 
;SWO9=1? 
sCHANGE TO FLOATING 1 
;CLEAR CARRY 
;SHIFT BIT IN RO 
;DONE IF RO=0 
sNEXT ADDRESS 
;LAST ADDRESS 
;BR IF NO 
sSCOPE THIS TEST 


§$064664446464606464660664400400004 TEST 72 ££4644646646444464446444446004444 
;*MAIN MEMORY DUAL ADDRESSING TEST 

:#LOAD EACH MEMORY LOCATION WITH ITS OWN ADDRESS 

;*#READ BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 

8 2 9800060464064 60666066 64 60404046 04464664402464446445 4440464 504404480440484 4444 


; TEST 72 


e222 @ @& 


#72, TSTNO 
@TST73 NEXT 
#1$,LOCK 


Re 
#377 ,2$ 
R2,2$ 


R2,4(R1) 





sR1 CONTAINS BASE DMC11 ADDRESS 

sMASTER CLEAR DMCi1 

s;START AT ADDRESS 0 

sCLEAR ADDRESS FIELD OF INSTRUCTION 

sADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;LOAD MAR 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE PORT4 MEMORY 


TO 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE MEMORY TO THE BR 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


EE Oe Oa a 


ee ee 


SEQ 87 


CZ0MC MACRO VO4.90 27-JUN-85 13:16:37 PAGE 27-48 
OMCi1 MAIN MEMORY TESTS 


024166 061225 61225 ;MOV BR TO PORTS 
024170 010205 MOV R2,R sPUT “EXPECTED” IN RS 
024172 116104 000005 MOVE 5(R1),R4 ;PUT “FOUND” IN R4 
024176 120504 eR4 ;DATA CORRECT? 
024200 001401 BEQ 3$ ;BR IF YES 
024202 104013 EMT 13 ;DATA ERROR 
024204 104401 3$: SCOP1 ;SWO9=1? 
4206 52 INC R2 ;NEXT ADDRESS 
024210 022702 000400 CMP #400 ,R2 ;LAST ADDRESS 
024214 1 BNE $ ;BR IF NO 
024216 012737 024226 001220 MOV #4$,LOCK sNEW SCOPE 1 
024224 CLR 2 sRESTART AT ADDRESS 0 
024226 042737 000377 024242 4%: BIC #377 ,5$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
024234 050237 024242 BIS R2,5$ ;ADD ADDRESS TO INSTRUCTION 
024240 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
024242 010000 5$: 010000 ;LOAD THE MAR 
024244 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
42 040620 040620 sMOVE MEMORY TO THE BR 
024250 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
024252 061225 61225 sMOV BR TO PORTS 
024254 010205 MOV R2,R5 sPUT “EXPECTED” IN R5 
024256 116104 000005 MOVB S5(R1),R4 ;PUT “FOUND” IN R4 
024262 120504 CMPB RS ,R4 sDATA CORRECT? 
024264 0901401 BEQ 6$ ;BR IF YES 
024266 104013 T 13 sADDRESSING ERROR 
024270 104401 6$: SCOP 1 ;SWO9=1? 
024272 005202 INC Re sNEXT ADDRESS 
024274 022702 000400 CMP #400 ,Re ;1S IT THE LAST 
024300 001352 BNE 4s ;BR IF NO 
os 024302 104400 SCOPE ;SCOPE THIS TEST 
5 4O606000046646404642 044044468484 TEST 73 £666464464446446844464644404464444 
;#MAR TEST 
;*PERFORM DUAL ADDRESSING TEST 
s*USING MAR AUTO-INC FEATURE 
§ 2 O6O8 66 46046464646648 646 64464046464464044644640646 06460444 0464444044444 44444444504 
3 TEST 73 
+ see ec eee nwa ecececne ae 
024304 012737 000073 001226 TST73: MOV #73, TSTNO 
024312 012737 024440 001216 MOV OTST74 ,NEXT 
sRi1 CONTAINS BASE DMCi1 ADDRESS 
024320 104412 MSTCLR sMASTER CLEAR DMC11 
024322 905002 CLR R2 sSTART WITH A ZERO 
024324 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
024326 010000 010000 ;LOAD MAR 
024330 032737 100000 001366 BIT @6ITiS ,STATL ;0MC? 
024336 001402 BEQ - +6 :BR IF YES 
024340 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
024342 4000 sMAR HI _ O (KMC ONLY) 
024344 010261 000004 1$: MOV R2 ,.4(R1) ;WRITE DATA TO PORT4 
024350 104414 sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
024352 136500 136500 ;LOAD MEM AUTO-INC MAR 
024354 005202 INC Re s INCREMENT DATA 
024356 022702 000400 CMP #400 ,R2 sDONE YET? 
024362 001370 BNE 1$ ;BR IF NO 
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MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-49 


012737 
012737 
012737 


100000 


000004 


000400 


000074 
024552 
024500 


034726 
034762 


000001 
000004 


000 
000 
000 





001366 


001226 TST74: 


001216 
001220 


000 TDATA: 
000 


23: 


3$: 


1$: 


2$: 


-EVEN 


CLR R2 
ROMCLK 

010000 

BIT #BITiS5S.STAT1 
BEQ . +6 
ROMCLK 

4000 

ROMCLK 

055224 

MOV R2,R5 
MOV 4(R1),R4 
CMPB R5,R4 
BEQ 3 

EMT 14 

INC R 

CMP #400 ,R2 
BNE $ 

SCOPE 


SEQ 88 


sRESTART WITH A ZERO 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 


ES 
s;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMAR HI _ O CKMC ONLY) 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:MOVE MEM TO PORT4 
;PUT “EXPECTED” IN R5 
;PUT “FOUND” IN R4 
;DATA CORRECT? 

;BR IF YES 

;MAR ERROR 

;NEXT ADDRESS 

;DONE YET? 

;BR IF NO 

;SCOPE THIS TEST 


Rakes heehee ee saesedkeecscese TEST 74 £44644446464644446 4644644464444 464446 


s#ALU C BIT TEST 


;#TEST THAT AN ADD OF 377 AND 377 WILL SET THE C BIT 
§ SRR EREEEEEAEAAAARAAEAAAEEEEAEBE RA EAAE REBEL ESOS ES EEE ES EELS 


; TEST 74 
rrr eter ee er oe= 
MOV #74, TSTNO 
MOV @TST7S ,NEXT 
MOV #1$,LOCK 
Ri CONTAINS BASE DMC1i1 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
JSR PC ,MEMLD ;LOAD MAINMEM DATA 
TDATA sPOINTER TO DATA 
JSR PC ,SPLD sLOAD SP DATA 
TDATA sPOINTER TO DATA 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;MAR_O 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
054400 !<0#20> sADD 377 AND 377, TO SET C BIT 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
040401 !<1#20> ;ADD 0 AND O AND THE C BIT 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sPUT RESULTS IN PORT4 
MOV #1,R5 sPUT “EXPECTED” IN RS 
MOV 4(R1),R4 sPUT “FOUND” IN R4 
CMPB RS ,R4 s;DATA CORRECT? 
SEQ 2s ;BR IF YES 
EMT 15 sERROR C BIT NOT SET 
SCOP1 ;SWO9=1? 
SCOPE sSCOPE THIS TEST 
-BYTE -1,0,0,9,0,0,0,0 
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eee 





SEQ 89 


MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-50 


024552 
024560 
024566 


024574 
6 


024724 


012737 
012737 
012737 


104412 
005000 


000075 
024726 
024620 


024716 
034726 


034762 


000004 


000010 


377 
125 
252 


001226 
001216 
001220 


024640 


024656 


TST75: 


1$: 


2s: 


3$: 


4$; 





5 #O46646644644646464644644464464400404 TEST 75 she ee ee ee cece cdceseceteteae 
s#ALU TEST 
;#TEST OF ALU FUNCTION SEL 6B WITH C BIT CLEARED 
; #ALU FUNCTION (8B) CODE=11 
;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
; #PERFORM THE FUNCTION, VERIFY THE RESULTS 
§ 5S ERASE SALESASESAEALASEAAARAEREREARALELASEAAALALEAAESAAL EASES ES 


; TEST 75 
MOV #75,TSTNO 
MOV #TST76,NEXT 
MOV #1$,LOCK 
sR1 CONTAINS BASE DOMC1i1 ADDRESS 
MSTCLR sMASTER CLEAR DMC1i1 
CLR RO sMEM + SP ADDRESS 
MOV #5$,R2 sPOINTER TO CORRECT DATA 
JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
MEMDAT sPOINTER TO DATA 
JSR PC ,SPLD sLOAD 8 WORDS OF SP 
SPDAT sPOINTER TO DATA 
JSR PC ,CLRC :;CLEAR C BIT! 
BIC #17,2$ sCLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ sADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3$ s;CLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ sADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
040400 !<11420> :;BR _ SEL B “ 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 {MOVE BR TO PORT4 
MOVB CR2).R5 sPUT “EXPECTED” IN R5 
MOVB 4(R1),R4 sPUT “FOUND” IN R4 
CMPB RS .R4 sDATA CORRECT? 
BEQ aS ;BR IF YES 
EMT i5 sALU ERROR 
SCOP 1 ;SWO9=1? 
INC R2 sNEXT DATA 
INC RO sNEXT ADDRESS 
CMP #10,R0 sDONE YET? 
BNE i$ IF NO 
SCOPE OPE THIS TEST 


3SC 
0,-1,0,-1,125, 252, 125,252 


5246006600664 406040444646400660042 TEST 76 £4666664284664860666 4648080806 
;#ALU TEST 

;*TEST OF ALU FUNCTION SEL A WITH C BIT CLEARED 
;#ALU FUNCTION (A) CODE =10 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
3;*PERFORM THE FUNCTION, VERIFY THE RESULTS 
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025102 012737 000077 coins TST77: 


000004 


000010 


000 
125 
252 


025110 012737 025256 


025116 012737 025150 001220 


025014 


025032 


377 
125 


00121 


TST76: 


1%: 


2s: 


3$: 


4$: 


5$: 


-EVEN 





SEQ 90 


§ 5 OO9666 6666660666 6644640464646 4646646646 460406 604646464646 464464464644646464606064064464608 


; TEST 76 
MOV #76, TSTNO 
MOV $TS1T77 NEXT 
MOV #1$,L0CK 
;R1 CONTAINS BASE DMCii ADDRESS 

MSTCLR sMASTER CLEAR DMCi1 
CLR RO 7MEM + SP ADDRESS 
MOV #5$,R2 SPOINTER TO CORRECT DATA 
JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
MEMDAT sPOINTER TO DATA 
JSR PC ,.SPLD ;LOAD 8 WORDS OF SP 
SPDAT ;sPOINTER TO DATA 
JSR PC ,CLRC ;CLEAR C BIT! 
BIC #17,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 :LOAD MAR 
BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ sA0D ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD o INSTRUCTION, "ROHCLK PC =5304 
040400 !<10#20> ;BR _ SEL A 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB CR2).R5 sPUT “EXPECTED” IN RS 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 

RS .R4 ;DATA~ CORRECT? 
BEQ 4$ ;BR IF YES 
EMT i5 ;ALU ERROR 
SCOP1 3SW09=1? 
INC R2 sNEXT DATA 
INC RO ;NEXT ADDRESS 
CMP #10,R0 sDONE YET? 
BNE i$ ;6R IF NO 
SCOPE COPE THIS TEST 


iS 
0,0, -1,-1, 125, 125,252,252 


$$606066460040640600046000004006 TEST 77 ££60060604660002846064046428440068 
s#ALU TEST 

s#TEST OF ALU FUNCTION A OR NOTB WITH C BIT CLEARED 

3*ALU te ton CA OR NOTB) CODE =1i2 


s#LOAD MAIN 


M AND SP WITH 8 WORDS OF DATA 


s*PERFORM THE FUNCTION, VERIFY THE RESULTS 
j 3086046 06666000660000000606060000060606000600065000040000600006 


; TEST 77 

3 ee 2weee eceaeaenaaae 

MOV #77, TSTNO 
MOV $TST100,NEXT 
MOV #1$,LOCK 


sR1 CONTAINS BASE DMC11 ADDRESS 
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MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-S2 


012737 
012737 
012737 
104412 
005000 
012702 
004737 
035052 
004737 
035062 
004737 


025170 


025206 


377 
125 


001226 
001216 
001220 


1%: 


2s: 


3%: 


4$: 


s EVEN 


TST100: 


is: 


MSTCLR 

CLR RO 

MOV #5$,R2 
JSR PC ,MEMLD 
MEMDAT 

JSR PC,SPLO 
SPDAT 

JSR PC ,,CLRC 
BIC #17,2$ 
BIS RO,2$ 
010000 

BIC 417,33 
BIS RO,3% 
ROMCLK 

040400 !<12420> 
ROMCLK 

61224 

MOVB CR2),R5 
MOVB 4(R1),R4 
CMPB ° 

BEQ as 

EMT iS 
SCOP 1 

INC R2 

INC RO 

CMP #10,RO0 
BNE i$ 
SCOPE 


ne er ee ree SS SS SSS SSS es NE - 


SEQ 91 


sMASTER CLEAR DMCi1 
;MEM + SP ADDRESS 
; POINTER TO CORRECT DATA 


sPOINTER TO DATA 

;CLEAR C BIT! 

sCLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

aan tae WORD IS INSTRUCTION, ROMCLK PC=5304 
: 

;CLEAR  ADORESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;BR _ A OR NOTB 

sNEXT WORD IS INSTRUCTION, ROMCLK PC =5304 
sMOVE BR TO PORT4 

sPUT “EXPECTED” IN R5 

sPUT “FOUND” IN R4 

sDATA CORRECT? 

;BR IF YES 


sNEXT ADORESS 


F NO 
sSCOPE THIS TEST 


-1,0,-1,-1,-1,125, 252, -1 


§$66266666600666600800000066 TEST 100 0600600206066604646000000806 
s#ALU TEST 
:*TEST OF ALU FUNCTION A AND 8 WITH C BIT CLEARED 
s#ALU FUNCTION CA AND B) CODE =13 


s*LOAD MAIN 


MEM AND SP WITH 8 WORDS OF DATA 


s*PERFORM THE FUNCTION, VERIFY THE RESULTS 
$5 O066666060680006666666 0660606006 0060000000060006000660000000806 


.. TEST 100 

3 eee eeceecaeeceeee @& 
MOV €100, TSTNO 
MOV @TST101,NEXT 
MOV €1$,L0CK 
MSTCLR 

CLR it) 

MOV 05% ,R2 

JSR PC, 

MEMDAT 

JSR PC .SPLOD 
SPDAT 

JSR PC .CLRC 





sR1 CONTAINS BASE DMC1i1 ADDRESS 
sMASTER CLEAR OMC11 
ADORESS 


sMEM «+ SP 
sPOINTER TO CORRECT DATA 
OAD OF MAIN 


sPOINTER TO DATA 
sCLEAR C BIT! 





CZOMC 


77 
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012737 
012737 
012737 


000017 
025344 


000017 
025362 


025576 
034726 


034762 
035026 


000017 
025520 


000017 
025536 


025344 


025362 


000 
000 


001226 
001216 
001220 


025520 


025556 





3%: 


43: 


53: 


-EVEN 


TST101: 


1$: 


2$: 


33: 


JUN-8S 13:16:37 PAGE 27-53 


BIC #17,2% 

61S RO.2$ 

ROMCLK 

010000 

BIC #17,3% 

61S RO,3$ 

ROMCLK 

040400 !<13220> 

ROMCLK 

61224 

MOVB CR2),R5 

MOVB 4(R1),R4 
R5 .R4 

BEQ 4$ 

EMT 15 

SCOP 1 

INC R2 

INC RO 

CMP #10,R0 

BNE i$ 

SCOPE 

BYTE 





SEQ 92 


sCLEAR ADDRESS FIELD OF INSTRUCTION 
:ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

:ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;BR _ A AND B 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

sPUT “EXPECTED” IN RS 


sALU ERROR 
;SWO9=1? 
sNEXT DATA 


0 
sSCOPE THIS TEST 


0,0,0, -1,125,0,0,252 


§£5O66064660604646646444206606¢6404024 TEST 10] 2446444644664 4464442484 4h464 
;*#ALU TEST 
;@#TEST OF ALU FUNCTION A OR B WITH C BIT CLEARED 
;*ALU FUNCTION CA OR 8B) CODE=14 

;*#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 


£2 SESRSSRSKAESEEKESESSEKALEAAASASALAEASEARSAALALALALALALALEELLEALELES 


; TEST 101 

MOV #101, TSTNO 
MOV #TST102,NEXT 
MOV #1$,LOCK 
MSTCLR 

CLR RO 

MOV #5%,R2 

JSR PC ,MEMLD 
MEMDAT 

JSR  PC,SPLOD 
SPDAT 

JSR PC ,.CLRC 
BIC #17,2$ 

BIS RO,2$ 
ROMCLK 

010000 

BIC #17,3% 

BIS RO,3$ 
ROMCLK 

040400 !<144«20> 


;Ri CONTAINS BASE DMC11 ADDRESS 

sMASTER CLEAR DMCil 

sMEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

sLOAD 8 WORDS OF MAIN MEMORY 

sPOINTER TO DATA 

sLOAD 8 WORDS OF SP 

sPOINTER TO DATA 

;CLEAR C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

sCLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

— yes ” INSTRUCTION, ROMCLK PC=5304 
: “ 





— 
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012737 
012737 
012737 


000004 


000010 


377 
125 
252 


000102 
025762 
025654 


025752 
034726 


034762 


000017 
025712 


000004 


377 
377 


001226 
001216 
001220 


025674 


025712 


4$: 


5$: 


EVEN 


TST102: 


1$: 


2s: 


3$: 


4$: 





SEQ 93 


ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB CR2).R5 sPUT “EXPECTED” IN RS 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 
RS ,R4 sDATA CORRECT? 
BEG 4S ;BR IF YES 
EMT 15 ;ALU ERROR 
SCOP 1 ;SWO9=1? 
INC R2 sNEXT DATA 
INC RO ;NEXT ADDRESS 
cmp #10,RO0 sDONE YET? 
BNE i$ ;BR IF NO 
SCOPE ;SCOPE THIS TEST 
BYTE 0O,-1,-1,-1.125,-1,-1,252 


$4$4£444460464644644406064064046404064444 TEST 102 chee ee each ee eeeeheeasebsccse 


:#ALU TEST 


;#TEST OF ALU FUNCTION A XOR B WITH C BIT CLEARED 


3#ALU FUNCTION CA XOR B) 


CODE=15 


;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*#PERFORM THE FUNCTION, VERIFY THE RESULTS 


ss RESEREASAEAASSEAAESEAEEBAS SASSEEAESSEASESAKEAAAAAAR EKER EAEALALE ELSE 


; TEST 102 
; “~se @~en @eeeaececaae 
MOV #102, TSTNO 
MOV #TST103,NEXT 
MOV #1$,L0CK 
MSTCLR 
CLR RO 
MOV #53,R2 
JSR PC .MEMLD 
MEMDAT 
SR PC .SPLD 
SPDAT 
JSR PC,CLRC 
BIC #17,2$ 
BIS RO.2$ 
ROMCLK 
010000 
BIC $17,3% 
040800! <15420> 
LK 
61224 
MOVB CR2),R5 
MOVB 4(R1),R4 
R5 e 

BEQ 4$ 

EMT i5 

SCOP1 





sR1 CONTAINS BASE DMC1i1 ADDRESS 
sMASTER CLEAR DMC11 

sMEM + SP ADDRESS 

;POINTER TO CORRECT DATA 

sLOAD 8 WORDS OF MAIN MEMORY 
sPOINTER TO DATA 


sCLEAR C BIT! 

sCLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sLOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;BR _ A XOR B 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

sPUT “EXPECTED” IN R5 

;PUT “FOUND” IN R4 
sDATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO9=1? 








SEQ 94 


CZ0mC MACRO V04.00 27-JUN-85 13:16:37 PAGE 27-55 
DMCi1 ALU TESTS 
025736 905202 INC R2 ;NEXT DATA 
025740 005200 INC RO sNEXT ADDRESS 
025742 022700 000010 CMP #10,R0 sDONE YET? 
025746 001342 BNE is :BR IF NO 
025750 104400 SCOPE ;SCOPE THIS TEST 
025752 000 377 377 5$: -BYTE 0,-1,-1,0,0,-1,-1,0 
025755 000 000 377 
025760 377 000 
, .EVEN 
79 
$SO4646464464 4464640444 4b4b4h44444 TEST 103 sh eee ee cese chee ee chabbbhase 
:#ALU TEST 
;*TEST OF ALU FUNCTION ADD WITH C BIT CLEARED 
;*#ALU FUNCTION CA PLUS B) CODE=00 
;*LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;#PERFORM THE FUNCTION, VERIFY THE RESULTS 
§ 2S PRSASEAESEEEEEESEREAREARAAEAEEAEAGAREARAKARAKALAREESALALALAKAEESE 
; TEST 103 
025762 012737 000103 001226 1TST103: MOV #103, TSTNO 
025770 012737 026136 001216 MOV #TST104,NEXT 
025776 012737 026030 001220 MOV #1$,L0CK 
sR1 CONTAINS BASE DMC11 ADDRESS 
026004 104412 MSTCLR sMASTER CLEAR DMC1i1 
026006 005000 CLR RO sMEM + SP ADDRESS 
026010 012702 026126 MOV #5$,R2 ;POINTER TO CORRECT DATA 
026014 004737 034726 JSR PC .MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
026020 035052 MEMDAT sPOINTER TO DATA 
026022 004737 034762 JSR PC ,SPLD ;LOAD 8 WORDS OF SP 
026026 035062 SPDAT sPOINTER TO DATA 
026030 004737 035026 i$: JSR PC,CLRC ‘CLEAR C BIT! 
026034 042737 000017 026050 BIC #17.,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
026042 050037 026050 BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
026046 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026050 010000 2s: 010000 :LOAD MAR 
026052 042737 000017 026066 BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCT™°' 
026060 050037 026066 BIS RO,3$ sADD ADDRESS TO INSTRUCTIG' 
026064 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026066 040400 38: 040400 !<00420> :BR _ ADD 
026070 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026072 061224 61224 :MOVE BR TO PORT4 
026074 111205 MOVB (R2),R5 :PUT “EXPECTED” IN R5 
026076 116104 000004 MOVB 4(R1).R4 sPUT “FOUND” IN R4 
026102 120504 CMPB R5.R4 sDATA CORRECT? 
026104 001401 BEQ 4$ ;BR IF YES 
026106 104015 EMT 15 ;ALU ERROR 
026110 104401 4$: SCOP1 :SWO9=1? 
026112 005202 INC Re sNEXT DATA 
026114 005200 INC RO sNEXT ADDRESS 
026116 022700 000010 CMP #10,R0 sDONE YET? 
026122 001342 BNE i$ :BR IF NO 
026124 104400 SCOPE :SCOPE THIS TEST 
026126 000 377 377 S$: -BYTE 0, -1,-1,376,252,-1,-1, 124 
026131 376 252 377 
026134 377 124 





SEQ 95 


CZDMC MACRO V04.00 27-JUN-85 13:16:37 PAGE 27-56 
OMC11 ALU TESTS 
-EVEN 
80 
5906 4444646646446464446444 444444044 TEST 104 seed ee ee ee cece cece seeeeesar 
;*#ALU TEST 
;*#TEST OF ALU FUNCTION 2A W/C WITH C BIT CLEARED 
;#ALU FUNCTION CA PLUS A PLUS C) CODE =6 
;*LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 
jt SRREEEEEAAEAEAEARAEASESASEAAESAAERARARAARALRAA EERE EAAREAAAARELS 
; TEST 104 
61 012737 000104 001226 TST104: MOV #104 ,TSTNO 
026144 012737 026312 001216 MOV #TST105, NEXT 
026152 012737 026204 001220 MOV #1$,LO0CK 
:R1 CONTAINS BASE DMC11 ADDRESS 
026160 104412 MSTCLR ;MASTER CLEAR DMC11 
026162 005000 CLR RO sMEM + SP ADDRESS 
026164 012702 026302 MOV #5$,R2 :POINTER TO CORRECT DATA 
026170 004737 034726 JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
026174 035052 MEMDAT ;sPOINTER TO DATA 
026176 004737 034762 JSR PC ,SPLD ;LOAD 8 WORDS OF SP 
026202 035062 SPDAT sPOINTER TO DATA 
026204 004737 035026 1$: JSR PC ,,CLRC sCLEAR C BIT! 
026210 042737 000017 026224 BIC #17.,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
026216 050037 026224 BIS RO.2$ ;ADD ADDRESS TO INSTRUCTION 
026222 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
026224 010000 2$: 010000 ;LOAD MAR 
026226 0427/37 000017 026242 BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
026234 050037 026242 BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
0262 104414 ROMCLK sNEXT Page IS INSTRUCTION, ROMCLK PC=5304 
026242 040540 3$: 040400 !<6#20> ;BR _ 2A W/C 
026244 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, RU ICLK PC=5304 
026246 061224 61224 sMOVE BR TO PORT4 
6250 111205 MOVB CR2),R5 SPUT “EXPECTED” IN R5 
026252 116104 000004 MOVB 4(R1),R4 sPUT “FOUND” IN R4 
026256 120504 RS ,R4 sDATA CORRECT? 
026260 001401 BEQ 4$ ;BR IF YES 
026262 104015 EMT 1i5 :ALU ERROR 
026264 104401 4$: SCOP 1 ;SWO9=1? 
026266 005202 INC R2 sNEXT DATA 
026270 5200 INC RO sNEXT ADDRESS 
026272 022700 000010 CMP #10,R0 ;DONE YET? 
026276 001342 BNE is ;BR IF NO 
6300 104400 SCOPE sSCOPE THIS TEST 
026302 000 900 376 5$: -BYTE 0,0,376,376,252, 252, 124,124 
026305 376 252 252 
026310 124 124 
-EVEN 
81 





§#0640464664644646444464446440640046 TEST 105 60006 bee0h000 eb bebe sehcses 
s*ALU TEST 

s#TEST OF ALU FUNCTION SUB WITH C BIT CLEARED 
;#ALU FUNCTION (A-B) CODE =16 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
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026312 
026320 
026326 


026466 012737 000106 001226 TST106: 
026474 012737 026642 001216 
026502 012737 026534 001220 


012737 
012737 
012737 


000105 
026466 
026360 


000004 


001 


001226 
001216 
001220 


026400 


026416 


377 
253 


TST105: 


1$: 


2$: 


3$: 


4$: 


5$: 


-EVEN 





SEQ 96 


;*#PERFORM THE FUNCTION, VERIFY THE RESULTS 
$f SEAR ESEAESAASASEREASEASASESEASERERESEEEAREEAEREEEEEAEEEE ESD EEEES 


; TEST 105 

3 ie ee ee 

MOV #105, TSTNO 

MOV #TST106, NEXT 

MOV #1$,LOCK 

MSTCLR 

CLR RO 

MOV #5$,R2 

JSR PC ,MEMLD 

MEMDAT 

JSR PC ,SPLD 

SPDAT 

JSR PC ,CLRC 

BIC #17,2$ 

BIS RO,2$ 

ROMCLK 

010000 

BIC #17,3$ 
BIS RO,3$ 

ROMCLK 

040400 !<16420> 
OMCLK 

61224 

MOVB CR2),R5 
MOVB 4(R1),R4 

oR4 

BEQ : 

EMT iS 
SCOP 1 

INC R2 

INC RO 

CMP #10,R0 
BNE 1$ 
SCOPE 

-BYTE 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC1i1 

7MEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

;LOAD 8 WORDS OF MAIN MEMORY 

sPOINTER TO DATA 

;LOAD 8 WORDS OF SP 

sPOINTER TO DATA 

;CLEAR C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

7 og IS INSTRUCTION, ROMCLK PC=5304 
3 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

;PUT “EXPECTED” IN R5 

sPUT “FOUND” IN R4 

sDATA CORRECT? 

;BR IF YES 

;ALU ERROR 

3;SWO9=1? 

sNEXT DATA 


;BR IF NO 
:SCOPE THIS TEST 


0.1, -1,0,0,253,125,0 


jRbbASt SS RS SEES SEES ES ELE TEST 106 se eee 0044444444 4424224 44444 


s*#ALU TEST 


s*TEST OF ALU FUNCTION ADD W/C WITH C BIT CLEARED 
;*#ALU FUNCTION CA PLUS B PLUS C) CODE =01 
;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;#PERFORM THE FUNCTION, VERIFY THE RESULTS 
5 SREERAAEAEREAAARESEASESEEEAEAEAEAASEARERASARARERAAARAREREEE REESE 


; TEST 106 

rf ncn eaecaeaeaceaeeeaens 

MOV #106, TSTNO 
MOV #TST107,NEXT 
MOV #1$,L0CK 





CZOMC 


OMC11 ALU TESTS 


A. 


= OO OO, 


MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-58 


026510 


012737 
012737 
012737 


026632 
034726 


034762 
035026 


000017 
026554 


000017 
626572 


000004 


000107 
027016 
026710 


027006 
034726 


034762 


026554 


026572 


377 
377 


001226 1ST107: 
001216 


001220 


1$: 


2s: 


3$: 


4$: 


5$: 


EVEN 





SEQ 97 


:R1 CONTAINS : DMCii ADDRESS 


MSTCLR sMASTER CLEAR DOMC11 
CLR RO ;MEM + SP ADDRESS 
MOV #5$,R2 sPOINTER TO CORRECT DATA 
JSR PC ,MEMLD ;LGAD 8 WORDS OF MAIN MEMORY 
MEMDAT ;POINTER TO DATA 
JSR PC,SPLO ;LOAD 8 WORDS OF SP 
SPDAT ;POINTER TO DATA 
JSR PC ,CLRC ;CLEAR C BIT! 
BIC #17,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3% sCLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
040400 !<01#20> ;BR _ ADD W/C 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB CR2),R5 sPUT “EXPECTED” IN RS 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 
CMPB RS .R4 sDATA CORRECT? 
BEQ $ ;BR IF YES 
EMT 15 sALU ERROR 
SCOP1 3SWO09=17 
INC R2 sNEXT DATA 
INC RO sNEXT ADDRESS 
CMP #19 "0 sDONE YET? 
BNE i$ ;BR IF NO 
SCOPE sSCOPE THIS TEST 
BYTE 0, -1,-1,376,252,- - -1,124 = 


§$$466646666406060640604606404006% TEST 107 £6£6404664664644644846422044444424% 


s*ALU TEST 


s#TEST OF ALU FUNCTION or ee Da C BIT CLEARED 


s#ALU FUNCTION CA-B8-C) 


:#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
*PERFORM THE FUNCTION, VERIFY THE RESULTS 


§ 2 SSRSAAASASKRSSSSEASSASAASASALSARKEAKALRKESAEARARESELERELEEEEERELES 


; TEST 107 

3 “een ewan eee aw eee 
MOV #107, TSTNO 
MOV #TST110, NEXT 
MOV #13 ,LOCK 
MSTCLR 

CLR RO 

MOV #5$,R2 

JSR PC, D 
MEMDAT 

JSR PC,SPLD 
SPDAT 





sR1 CONTAINS BASE DMCii ADDRESS 
sMASTER CLEAR gi 


sMEM + SP ADOR 
sPOINTER TO CORRECT DATA 


sPOINTER TO DATA 
‘we 





CZDMC 


OMC11 ALU TESTS 


84 


MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-59 


027011 
027014 


027016 
027024 
027032 


012737 
012737 
012737 


035026 
000017 
026730 


000017 
026746 


000004 


000010 


000 
377 
377 


000110 
027172 
027064 


027162 
034726 


034762 


000017 
027122 


026730 


026746 


376 
252 


001226 TST110: 


001216 
001220 


027104 


027122 


i$: 


2s: 


3$: 


4$: 


5$: 


-EVEN 


1$: 


2s: 


JSR PC ,CLRC 

BIC #17,2$ 

BIS RO,2$ 

ROMCLK 

010000 

BIC #17,3$ 

BIS RO,3$ 

ROMCLK 

040400 !<2420> 

ROMCLK 

61224 

MOVB CR2),R5 

MOVB 4(R1),R4 
RS .R4 

BEQ 4$ 

EMT i5 

SCOP 1 

INC Re 

INC RO 

CMP #10,RO 
i$ 

SCOPE 

BYTE 


SEQ 98 


;CLEAR C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TC INSTRUCTION 

;NEXT WORD ee INSTRUCTION, ROMCLK PC=5304 
;BR _ SUB W/C 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:MOVE BR TO PORT4 

;PUT “EXPECTED” IN RS 

;PUT “FOUND” IN R4 

;DATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO09=1? 

sNEXT DATA 

sNEXT ADDRESS 

;sDONE YET? 

;BR IF NO 

;SCOPE THIS TEST 


-1,0,376,-1, -1,252,124,-1 


§O22O4040446464464464444040e44004 TEST 110 £64464644644464646444446 4444446444 
s*ALU TEST 
;#TEST OF ALU FUNCTION INC A WITH C BIT CLEARED 
;*#ALU FUNCTION CA PLUS 1) CODE=3 

;*#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;*PERFORM THE FUNCTION, VERIFY THE RESULTS 

$2 8hO4h6646040646646064644644464664404608 666464644644 6004604444446 4444 4444444 


; TEST 110 

: saa e@eeeceneecanaace 
MOV #110, TSTNO 
MOV @TST111,NEXT 
MOV #1$,LOCK 
MSTCLR 

CLR RO 

MOV #5$,R2 

JSR PC, 

MEMDAT 

JSR PC,SPLO 
SPDAT 

JSR PC,CLRC 
BIC #17,2$ 

BIS RO,2$ 
ROMCLK 

010000 

BIC #17,3% 

BIS RO,3$ 
ROMCLK 


#R1 CONTAINS BASE DMC11 ADDRESS 
i o CLEAR DMCil 


ESS 
SPOINTER TO CORRECT DATA 
;LOAD 8 WORDS OF MAIN MEMORY 
sPOINTER TO DATA 
sLOAD 8 WORDS OF SP 
sPOINTER TO DATA 
;CLEAR C BIT! 
;CLEAR ADDRESS FIELD OF INSTRUCTION 
sADD ADDRESS TO INSTRUCTION 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 
;CLEAR ADDRESS OF INSTRUCTION 
:ADD ADDRESS TO INSTRUCTION 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
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027170 


027172 
027200 
027206 


027214 


012737 
012737 
012737 


000010 


001 
126 
253 


000004 


000 
126 


001226 
001216 
001220 


027260 


027276 


3$: 


4$: 


5$: 


EVEN 


TST1i11: 


1$: 


2$: 


3$: 


040400 !<3#20> 
ROMCLK 
61224 
MOVB CR2),R5 
MOVB 4(R1),R4 
CMPB RS .R4 
BEQ 4s 

T 15 
SCOP 1 
INC Re 
INC RO 
CMP #10,RO 
BNE i$ 
SCOPE 
BYTE 


a aN OS I ee eee eee eee 


SEQ 99 


;BR _ INC A 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

;PUT “EXPECTED” IN R5 

;PUT “FOUND” IN R4 

;DATA CORRECT? 

;BR IF YES 


sNEXT DATA 

;NEXT ADDRESS 
sDONE YET? 

;BR IF NO 

;SCOPE THIS TEST 


1,1,0,0,126,126, 253, 253 


peeesee se he been eeaeeesceeeeese TEST 111 £666464444446444444444444 444 


;*ALU TEST 


s#TEST OF ALU FUNCTION 2A WITH C BIT CLEARED 

:*ALU FUNCTION CA PLUS A) CODE=5 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;#PERFORM THE FUNCTION, VERIFY THE RESULTS 

$2 RREEERAREAERAAEEAEAEAREAEEEEREAEEEEEEE DEEDES EDEE ERED ERLE EERE EEE 


; TEST 111 

3 sas «eae ec@eaeweceaee = 

MOV #111, TSTNO 

MOV #TST112,NEXT 

MOV #1$,LOCK 

MSTCLR 

CLR 

MOV #5$,R2 

JSR ° 

MEMDAT 

JSR PC,SPLO 

SPDAT 

JSR PC,CLRC 

BIC $17,2% 

BIS RO .2$ 

ROMCLK 

010000 

BIC $17,3% 

BIS +3 

040400 !<5#20> 

61224 

MOVB CR2),R5 

MOVB 4(R1),R4 
RS, 

BEQ 4$ 

EMT 15 





sR1 CONTAINS BASE DMCii ADDRESS 

sMASTER CLEAR DMC11 

sMEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

s;LOAD 8 WORDS OF MAIN MEMORY 

sPOINTER TO DATA 

;LOAD 8 WORDS OF SP 

sPOINTER TO DATA 

sCLEAR C BIT! 

sCLEAR ADDRESS FIELD OF INSTRUCTION 

sADD ADDRESS TO INSTRUCTION 

Heo rg IS INSTRUCTION, ROMCLK PC=5304 
; 

s;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT ag IS INSTRUCTION, ROMCLK PC=5304 


;BR _ 
3;NEXT SORD IS INSTRUCTION, ROMCLK PC=5304 
MOVE BR TO PORT4 


:DATA CORRECT? 
;BR IF YES 
sALU ERROR 
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027346 
027354 
027362 


027370 
027372 
027374 
027400 


012737 
012737 
012737 


000112 
027522 
027414 


027512 
034726 


034762 


000004 





001226 
001216 
001220 


027434 


027452 


377 
125 


4$: 


TSTile: 


1%: 


2s: 


3$: 


4$: 


5$: 


SCOP 1 

INC R2 

INC RO 

CMP #10,R0 
i$ 

SCOPE 

BYTE 


LLL a OT TI ET I 


;SWO9=1? 
;NEXT DATA 
:NEXT ADDRESS 


I 
OPE THIS TEST 


0,0,376,376,252, 252, 124,124 


sRSbbe ee he hese esses se seceeaee TEST 112 shee eee ee eecceeeeee cece ene 


;#ALU TEST 


;*#TEST OF ALU FUNCTION A PLUS C WITH C BIT CLEARED 
;#ALU FUNCTION CA PLUS C) CODE=4 

; #LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 


gt SEAKEAASEASESASASEEAEAEALEEESALASEAAADAEEEAEEEEAEEEE EASES EAEEEE ERE 


; TEST 112 

3 oeeeaencecaneeaaace = 
MOV #112, TSTNO 
MOV #TST113,NEXT 
MOV #1$,L0CK 
MSTCLR 
CLR RO 
MOV #5$,R2 
JSR PC ,MEMLD 
MEMDAT 
JSR PC ,SPLO 
SPDAT 
JSR PC ,CLRC 
BIC #17,2$ 
BIS RO,2$ 
ROMCLK 
010000 
BIC #17,3% 
BIS RO,3$ 
ROMCLK 
040400 !<4420> 
ROMCLK | 
61224 
MOVB CR2),R5 
MOVB 4(R1),R4 
CMPB = 
BEQ 4$ 
EMT 15 

SCOP 1 

INC R2 

INC RO 

CMP #10,RO0 
BNE 1$ 

SCOPE 

BYTE 





0,0, -1,-1, 125, 125,252,252 


;R1 CONTAINS BASE DMC11 ADDRESS 

:MASTER CLEAR DMCi1 

;MEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

;LOAD 8 WORDS OF MAIN MEMORY 

:POINTER TO DATA 

;LOAD 8 WORDS OF SP 

sPOINTER TO DATA 

sCLEAR C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;A0D ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

:ADD ADDRESS TO INSTRUCTION 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;BR _ A PLUS C 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:MOVE BR TO PORT4 

SPUT "EXPECTED" IN R5 


; NO 
;SCOPE THIS TEST 


SEQ 100 
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027522 


027674 


252 


012737 
012737 
012737 


104412 
005000 


252 


000113 
027676 
027570 


027666 
034726 


034762 


027610 


000017 
027626 


000004 


000010 


000 
377 
377 


001226 
001216 
001220 


027610 


027626 


376 
252 


TST113: 


1$: 


2s: 


3$: 


4$: 


5$: 


EVEN 





SEQ 101 


5 44644646464646446464644644644040044040004 TEST 113 £6664440446444464 644444644 644644 


7#ALU TEST 
s#TEST OF ALU FUNCTION 2‘S COMP SUB WITH C BIT CLEARED 


;#ALU FUNCTION (A-B-1) 


CODE =17 


:#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*#PERFORM THE FUNCTION, VERIFY THE RESULTS 


§ s SRSRSASASAAAASESESASASASSSEAREARASAAAALELALAALEALEASLALELEEALALEESE 


; TEST 113 
MOV #113, TSTNO 
MOV #TST114,NEXT 
MOV #1$,LOCK 
3R1 CONTAINS BASE DMC1i ADDRESS 
MSTCLR ;MASTER CLEAR DMC1i1 
CLR RO ;MEM + SP ADDRESS 
MOV #5$,R2 ;POINTER TO CORRECT DATA 
JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
MEMDAT sPOINTER TO DATA 
JSR PC ,SPLD ;LOAD 8 WORDS OF SP 
SPDAT sPOINTER TO DATA 
JSR PC ,CLRC ;CLEAR C BIT! 
BIC 417,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ :ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
040400 !<17420> :BR _ 2'S COMP SUB 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB (R2),R5 ;PUT “EXPECTED” IN R5 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 
CMPB RS ,.R4 sDATA CORRECT? 
BEQ 4$ ;8R IF YES 
EMT 15 ;ALU ERROR 
SCOP1 ;SWO9=1? 
INC R2 sNEXT DATA 
INC RO sNEXT ADDRESS 
CMP #10,R0 sDONE YET? 
BNE 1$ ;BR IF NO 
SCOPE sSCOPE THIS TEST 
BYTE 


-1,0,376,-1,-1, 252, 124,-1 


5 4#6646406464646064646446404064400046008 TEST 114 £6£464464464444464864646464664646488 


;*ALU TEST 
s*TEST OF ALU FUNCTION DEC 
;*ALU FUNCTION (A-1) 


A WITH C BIT CLEARED 
CODE =7 
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027712 
027720 


030052 012737 000115 001226 TST115: 
030060 012737 030226 


012737 
012737 
012737 


000004 


000010 


377 
124 
251 


001226 
001216 
001220 


027764 


030002 


376 
124 


001216 


TST114: 


1%: 


2s: 


3$: 


4$: 


5$: 


.EVEN 





SEQ 102 


27-JUN-85 13:16:37 PAGE 27-63 


;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 
j PRES ERASEEASEEEEEEESAEASAAASAAEAREEAEEESAREEREAEEARES ERED AREER ERS 


; TEST 114 
MOV #114,TSTNO 
MOV #TST115,NEXT 
MOV #1$,LOCK 

;R1 CONTAINS BASE DMC11 ADDRESS 

MSTCLR sMASTER CLEAR DMC1i1 
CLR RO ;MEM + SP ADDRESS 
MOV #5%,R2 ;POINTER TO CORRECT DATA 
JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
MEMDAT sPOINTER TO DATA 
JSR PC ,SPLD ;LOAD 8 WORDS OF SP 
SPDAT sPOINTER TO DATA 
JSR PC ,CLRC ;sCLEAR C BIT! 
BIC #17,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
040400 !<7*20> ;BR _ DEC A 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB CR2),R5 ;PUT “EXPECTED” IN R5 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 

CMPB R5 ,.R4 sDATA CORRECT? 
BEQ 4$ 3BR IF YES 

EMT 15 ;ALU ERROR 

SCOP1 ;SW09=1?7 

INC R2 sNEXT DATA 

INC RO sNEXT ADDRESS 

CMP #10,R0 sDONE YET? 

BNE i$ ;BR IF NO 

SCOPE ;SCOPE THIS TEST 

BYTE -1,-1,376,376, 124, 124,251,251 


§$4446666666604646000060000008 TEST 115 seeeseseccacccccccccecnecers 
;#ALU TEST 

;*TEST OF ALU FUNCTION SEL 6 WITH C BIT SET 

3#ALU FUNCTION (8) CODE =11 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;#PERFORM THE FUNCTION, VERIFY THE RESULTS 


§ 2 4860606464864 6664646466646666860446664466604646446464606464646066064640646 460064646 


, TEST 115 
MOV #115, TSTNO 
MOV @TST116,NEXT 
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030224 


012737 


012737 
012737 
012737 


030120 


030216 
034726 


034762 
035040 


000017 
030140 


000017 
030156 


000004 


000116 
030402 
030274 


030372 
034726 


034762 


001220 


030140 


030156 


000 
252 


001226 TST116: 
001216 


001220 


1%: 


23: 


3%: 


4%: 


5$: 


-EVEN 


MOV #1$,L0CK 
MSTCLR 
CLR RO 
MOV #5$,R2 
JSR PC .MEMLD 
MEMDAT 
JSR PC ,SPLD 
SPDAT 
JSR PC ,SETC 
BIC #17,2$ 
BIS RO,2$ 
ROMCLK 
010000 
BIC #17,3$ 
BIS RO,3$ 
ROMCLK 
040400 !<11420> 
ROMCLK 
61224 
MOVB CR2),R5 
MOVB 4(R1),R4 
CMPB ’ 
BEQ Qs 
EMT 15 
SCOP 1 

INC R2 

INC RO 

CMP #10,RO 
BNE i$ 
SCOPE 

BYTE 





SEQ 103 


;R1 CONTAINS a DMCi1 ADDRESS 
;MASTER CLEAR DOMCii 

MEM + SP ADDRESS 

;POINTER TO CORRECT DATA 

;LOAD 8 WORDS OF MAIN MEMORY 

;PQINTER TO DATA 

;LOAD 8 WORDS OF SP 

sPOINTER TO DATA 

;SET C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

i aa INSTRUCTION, ROMCLK PC=5304 
3 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

sPUT “EXPECTED” IN RS 

;PUT “FOUND” IN R4 

:DATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO9=1? 

sNEXT DATA 

sNEXT ADDRESS 


F NO 
sSCOPE THIS TEST 


0, -1,0,-1, 125,252, 125, 252 


$$260606606000044606080000008 TEST 116 26064604600400046688604068084 


s*ALU TEST 


s*TEST OF ALU FUNCTION SEL A WITH C BIT SET 
CODE =10 


s*#ALU FUNCTION (A) 


s*LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 


bt $6 O00066406.6646666406406 46606 6464460666 6666 064666606064660466406048460806 


; TEST 116 

3 cen e@eecanaececaanaea 
MOV #116, TSTNO 
MOV @TST117,NEXT 
MOV #1$, LOCK 
MSTCLR 

CLR RO 

MOV #5$ ,R2 
JSR PC .MEMLD 
MEMDAT 

JSR PC,.SPLD 





sR1 CONTAINS BASE DOMC11 ADORESS 
sMASTER CLEAR DMC1i1 

sMEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

sLOAD 8 WORDS OF MAIN MEMORY 


sPOINTER TO DATA 
sLOAD 8 WORDS OF SP 





TL TE OO AOE CC TT I A est i a aw —womecy 





SE 
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OMC11 ALU TESTS 

030272 035062 SPDAT sPOINTER TO DATA 

030274 004737 035040 is: JSR PC,SETC ;SET C BIT! 

030300 042737 000017 030314 BIC #17.2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 

030306 050037 030314 BIS RO.2$ ;ADD ADDRESS TO INSTRUCTION 

030312 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC#=5304 

030314 010000 2%: 010000 ;LOAD MAR 

030316 042737 000017 030332 BIC 617.3% ;CLEAR ADDRESS OF INSTRUCTION 

030324 050037 030332 BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 

030330 104414 ROMCLK sNEXT WORD 41S INSTRUCTION, ROMCLK PC=5304 

030332 040600 3$: 040400! <10«20> : :BR _ SEL 

030334 104414 ROMCLK ;NEXT WORD “Ts INSTRUCTION, ROMCLK PC=5304 

030336 061224 61224 sMOVE BR TO PORT4 

030340 111205 MOVB (R2),R5S sPUT “EXPECTED” IN RS 

030342 116104 000004 MOVB 4(R1),R4 ;PUT “FOUND” IN R4 

030346 120504 CMPB sé, R4 sDATA CORRECT? 

030350 001401 BEQ 4$ ;BR IF YES 

030352 104015 EMT 15 ;ALU ERROR 

030354 104401 4$: SCOP1 ;SWO9=17 

030356 005202 INC R2 sNEXT DATA 

030360 005200 INC RO sNEXT ADDRESS 

030362 022700 000010 CMP #10,RO ;DONE YET? 

030366 001342 BNE i$ ;8R IF NO 

030370 104400 SCOPE ;SCOPE THIS TEST 

030372 000 000 377 58: .BYTE 0,0,-1,-1,125,125, 252,252 

030375 377 125 125 

030400 252 252 

EVEN 
91 


aa ee TEST 117 #64644462442846064642460264602% 
s*ALU TES 

;#TEST OF ALU FUNCTION A OR NOTB WITH C BIT SET 

3#ALU FUNCTION CA OR NOTB) CODE=12 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

s#PERFORM THE FUNCTION, VERIFY THE RESULTS 

§ 3 2O64660666064666484646666604606606 6004006 666440646646064604664464640464444466 





s TEST 117 
030402 012737 000117 001226 TST117: #117, TSTNO 
030410 012737 030556 001216 @TST120, NEXT 
030416 012737 030450 001220 #13, LOCK 
sR1 CONTAINS BASE DMC1i ADDRESS 

030424 104412 egg CLEAR OMC11 
030426 00 RO + SP S 
030430 012702 03 #5%,R2 ;POINTER TO CORRECT DATA 
030434 004737 034726 PC ,MEMLOD sLOAD 8 WORDS OF MAIN MEMORY 
030440 035052 | :POINTER TO DATA 
030442 004737 034762 PC ,.SPLO sLOAD 8 WORDS OF 

03 :POINTER TO DATA 
030450 004737 035040 1$: PC ,SETC sSET C BIT! 
030454 042737 000017 030470 017,28 sCLEAR ADDRESS FIELD OF INSTRUCTION 
030462 050037 030470 RO.28 sADD ADDRESS TO INSTRUCTION 

ee we sNEXT WOR WORD IS INSTRUCTION, ROMCLK PC=5304 
030472 042737 000017 030506 17,38 CLEAR AD ADDRESS OF INSTRUCTION 
03 37 RO, 38 sADD ADDRESS TO INSTRUCTION 
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SEQ 105 
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030556 
030564 
030572 


012737 
012737 
012737 


000120 
030732 
030624 


030722 
034726 


034762 


000004 


001226 
001216 
001220 


030644 


030662 


3$: 


43: 


TST120: 


1$: 


2s: 


3$: 


ROMCLK sNEXT 4 IS INSTRUCTION, ROMCLK PC=5304 
0460400 !<1220> ;BR _ A OR NOTB 

ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 

MOVB CR2),R5 sPUT “EXPECTED” IN RS 

MOVB 4(R1),R4 sPUT “FOUND” IN R4 

CMPB RS, sDATA CORRECT? 

BEQ 44 ;BR IF YES 

EMT i5 sALU ERROR 

SCOP 1 ;SWO9=1? 

INC R2 sNEXT DATA 

INC RO sNEXT ADDRESS 

CMP #10,R0 sDONE YET? 

BNE i$ ;BR IF NO 

SCOPE ;SCOPE THIS TEST 

-BYTE -1,0,-1,-1,-1.125,252,-1 


§2$462646464646460664646466400400460044 TEST 120 0 eb ee bb eet eecseshbhebacce 
s#ALU TEST 

;*#TEST OF ALU FUNCTION A AND 6 WITH C BIT SET 

;*ALU FUNCTION CA AND B) CODE =13 

;*#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;*PERFORM THE FUNCTION, VERIFY THE RESULTS 


§ 2 SSRSASAESASESKAASEESASHAASEARACAERESEAASAAAAEAERALELESRSELALEALELRE 


; TEST 120 

3 wnaan an en nanaenaaceda 
MOV #120, TSTNO 
MOV #TST121,NEXT 
MOV #1$,LOCK 

sR1 CONTAINS BASE DMC11 ADDRESS 

MSTCLR sMASTER CLEAR DMC11 
CLR RO sMEM + SP ADDRESS 
MOV #53 ,Re ; POINTER TO CORRECT DATA 

JSR PC ,MEMLD sLOAD 8 WORDS OF MAIN MEMORY 
MEMDAT ; POINTER TO DATA 

SR PC,.SPLD sLOAD 8 WORDS OF SP 

SPDAT sPOINTER TO DATA 

JSR PC ,SETC sSET C BIT! 
BIC 017,2$ sCLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,28 ;ADD ADDRESS TO INSTRUCTION 
ROMCLK iNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 :LOAD MAR 

BIC #17,3% s;CLEAR ADDRESS OF INSTRUCTION 

BIS RO,3$ sADD ADDRESS TO INSTRUCTION 

ROMCLK sNEXT rege IS INSTRUCTION, ROMCLK PC=5304 
040400 !<13420> ;BR _ A AND B 

ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 ;MOVE BR TO PORT4 

MOVE (R2),R5 ;PUT “EXPECTED” IN R5 

MOVB 4(R1),R4 sPUT “FOUND” IN R4 

CMPS R5,R4 sDATA CORRECT? 

BEQ 4s ;BR IF YES 





SEQ 106 
15 sALU ERROR 
;SWO9=1? 
030706 005202 INC R2 sNEXT DATA 
030710 005200 INC RO ;NEXT ADDRESS 
030712 022700 000010 CMP #10,R0 sDONE YET? 
030716 00134 is ;BR IF NO 


030720 
030722 000 000 
030725 377 125 000 
020730 000 252 


;SCOPE THIS TEST 


0,0,0, -j 2125,0,0,252 


5 $O464646446644664646464604640400440464846 TEST 121 shee ee ce ccc cc eceecabhseods 


;#ALU TEST 


s#TEST OF ALU FUNCTION A OR B WITH C BIT SET 
;#ALU FUNCTION CA OR B) CODE=14 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 


§ 2 SEREASESESEEEKEAEASALERSCERALAASLAAAAAAALALEA ALE RALAALALELALALSS 


s TEST 121 

3 -s-as een ee een eee 
020732 012737 000121 001226 TST121: MOV #121, TSTNO 
030740 012737 031106 001216 MOV #TST122,NEXT 
030746 012737 031000 001220 MOV #1$,LOCK 

sR1 CONTAINS BASE DMCi1 ADDRESS 

030754 104412 MSTCLR sMASTER CLEAR DMC11 
030756 005000 CLR RO sMEM + SP ADDRESS 
030760 012702 031076 MOV #5$,R2 sPOINTER TO CORRECT DATA 
030764 004737 034726 JSR PC .MEMLD sLOAD 8 WORDS OF MAIN MEMORY 
030770 035052 MEMDAT sPCINTER TO DATA 
030772 004737 034762 JSR PC,SPLD sLOAD 8 WORDS OF SP 
030776 035062 SPDAT sPOINTER TO DATA 
031000 004737 035040 1$: JSR PC,SETC ;SET C BIT! 
031004 042737 000017 031020 BIC #17,2$ s;CLEAR ADDRESS FIELD OF INSTRUCTION 
031012 050037 031020 BIS RO.28 sADD ADDRESS TO INSTRUCTION 
031016 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031020 010000 23: 010000 sLOAD MAR 
031022 042737 000017 031036 BIC 917,33 s;CLEAR ADDRESS OF INSTRUCTION 
031030 050037 031036 BIS 233 sADD ADDRESS TO INSTRUCTION 
031034 104414 ROMCLK sNEXT a IS INSTRUCTION, ROMCLK PC=5304 
031036 040700 3$: 040400 !<14420> ;BR _ A OR B 
031040 104414 LK ;NEXT WORD IS > apenas ROMCLK PC=5304 
031042 061224 61224 sMOVE BR TO PORT4 
031044 111205 MOVB CR2),R5 sPUT “EXPECTED” IN R5 
031046 116104 000004 MOVB 4(R1),R4 sPUT “FOUND” IN R4 
031052 120504 CMPB R5,R4 sDATA CORRECT? 
031054 001401 BEC 4$ ;BR IF YES 
031056 104015 EMT iS sALU ERROR 
031060 104401 4$: SCOP 1 ;SWO9=1? 
031062 005202 INC R2 sNEXT DATA 
031064 005200 INC RO s;NEXT ADDRESS 
031066 022700 000010 CMP #10,R0 sDONE YET? 
031972 001342 BNE 1s R 


031076 


377 


377 





5$: 
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030702 104015 EMT 

030704 104401 4$: SCOP 1 


0, -i1,-l1, -1,125,-1,-1,252 


;BR IF NO 
:SCOPE THIS TEST 








SEQ 107 
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031101 377 125 377 
031104 377 252 
-EVEN 
94 
§$O4406606466460664646464646464446440464646 TEST 122 sh bees sche cece cheese bhbeihe 
s#ALU TEST 
;#TEST OF ALU FUNCTION A XOR B WITH C BIT SET 
;#ALU FUNCTION CA XOR B) CODE =15 
;*#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 
fs RERSEASASASASESSSAAESADASERESEAEASEALARAAARERALRARAAALALALARAAEERES 
; TEST 122 
; --_a- ene enema aeene 
031106 012737 000122 001226 TST122: MOV #122 .,TSTNO 
031114 012737 031262 001216 MOV #TST123,NEXT 
031122 012737 031154 001220 MOV #1$,L0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 
031130 104412 MSTCLR ;MASTER CLEAR DMC1ii 
031132 5000 CLR RO ;MEM + SP ADDRESS 
031134 012702 031252 MOV #5$,R2 ;POINTER TO CORRECT DATA 
021140 004737 034726 JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
021144 0350 MEMDAT sPOINTER TO DATA 
031146 004737 034762 JSR PC .SPLD ;LOAD 8 WORDS OF SP 
031152 035062 SPDAT sPOINTER TO DATA 
031154 004737 035040 1$: JSR PC ,SETC ;SET C BIT! 
031160 042737 000017 031174 BIC #17,2$ sCLEAR ADDRESS FIELD OF INSTRUCTION 
031166 050037 031174 BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
031172 104414 ROMCLK sNEXT oo IS INSTRUCTION, ROMCLK PC=5304 
031174 010000 2s: 010000 OAD MA 
031176 042737 000017 031212 BIC #17,3$ SCLEAR "ADORESS OF INSTRUCTION 
031204 050037 031212 BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
031210 104414 LK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031212 040720 3$; 040400 !<15%20> ;BR _ A XOR B 
031214 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031216 061224 61224 sMOVE BR TO PORT4 
031220 111205 MOVB (R2),R5 ;PUT “EXPECTED” IN RS 
031222 116104 000004 MOVB 4(R1),R4 sPUT “FOUND” IN R4 
031226 120504 CMPB R5 ,R4 ;DATA CORRECT? 
031230 001401 BEQ 4$ ;BR IF YES 
031232 104015 EMT 15 :ALU ERROR 
031234 104401 4$: SCOP1 ;SWO9=1? 
031236 005202 INC R2 sNEXT DATA 
031240 0052 INC RO ;NEXT ADDRESS 
031242 022700 000010 CMP #10,R0 ;DONE YET? 
031246 001342 BNE 1$ ;BR IF NO 
031250 104400 SCOPE ;SCOPE THIS TEST 
031252 000 377 377 5$: BYTE 0,-1,-1,0,0,-1, -1,0 
031255 000 000 377 
031260 377 000 
-EVEN 
95 


$hees £6404464404644604464646464440004 TEST 123 £44464464464664446464646446646464468604 
;*ALU TEST 
;#TEST OF ALU FUNCTION ADD WITH C BIT SET 
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s#ALU FUNCTION CA PLUS B) CODE =00 
;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;#PERFORM THE FUNCTION, VERIFY THE RESULTS 


os SREASSSESASSAASESEAASESAZASASEGALERSAREAAAALAREALALERALALKLERERSSS 


96 


one 


; TEST 123 
031262 012737 000123 001226 1ST123: MOV #123,TSTNO 
031270 012737 031436 001216 MOV #157124, NEXT 
031276 012737 031330 001220 MOV #1$,LOCK | 
:R1 CONTAINS BASE DMC1ii ADDRESS 

031304 104412 MSTCLR sMASTER CLEAR DMCi1 
031306 CLR RO 7MEM + SP ADDRESS 
031310 012702 021426 MOV #5$,R2 sPOINTER TO CORRECT DATA 
031314 737 034726 JSR PC .MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
031320 035052 MEMDAT sPOINTER TO DATA 
031322 004737 034762 JSR PC,SPLD ;LOAD 8 WORDS OF SP 
031326 035062 SPDAT sPOINTER TO DATA 
031330 004737 035040 1$: JSR PC,SETC :SET C BIT! 
031334 042737 000017 031350 BIC #17,2$% ;CLEAR ADDRESS FIELD OF INSTRUCTION 
031342 050037 031350 BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
031346 104414 ROMCLK ;NEXT nag IS INSTRUCTION, ROMCLK PC=5304 
031350 010000 2s: 010000 ;LOAD MA 
031352 042737 000017 031366 BIC #17,3$ ;CLEAR _ OF INSTRUCTION 

13 050037 031366 BIS .3$ ;ADD ADDRESS TO INSTRUCTION 
031364 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031366 040400 3$: 040400! <00#20> :BR _ ADD 
031370 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
031372 061224 61224 sMOVE BR TO PORT4 
031374 111205 MOVB CR2),R5 ;PUT “EXPECTED” IN RS 
031376 116104 000004 MOVB 4(R1),R4 ;PUT “FOUND” IN R4 
031402 120504 CMPB RS ,R4 ;DATA CORRECT? 
031404 001401 BEQ 4$ ;BR IF YES 
031406 104015 EMT i5 ;ALU ERROR 
031410 104401 4$: SCOP1i ;SWO9=1? 
031412 005202 INC R2 sNEXT DATA 
031414 5200 INC RO sNEXT ADDRESS 
031416 022700 000010 CMP #10,R0 sDONE YET? 
031422 001342 BNE is ;BR IF NO 
031424 104400 SCOPE sSCOPE THIS TEST 
031426 000 377 377 5$: -BYTE 0,-1.-1,376,252,-1, -1,124 
031431 376 252 377 
031434 377 124 


031436 012737 000124 





001226 TST124: MOV 


-EVEN 





¢SOh S446 4064646444646 446646h642 TEST 124 ach ecb cece chee ceheeebeecccbae 
s#ALU TEST 

s#TEST OF ALU FUNCTION 2A W/C WITH C BIT SET 

;#ALU FUNCTION CA PLUS A PLUS C) CODE =6 

;*LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;*PERFORM THE FUNCTION, VERIFY THE RESULTS 

§  SHRERERESAREAAAAKACABEAKELARABAABEREEEAAAAARAKEAAKRRAAEALEEERELES 


; TEST 124 


#124, TSTNO 
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031605 
031610 


031612 
031620 


012737 
012737 


012737 
012737 
012737 


031612 
031504 


031524 


000017 
031542 


000004 


000010 


001 
253 
125 


000125 
031766 
031660 


031756 
034726 





001216 
001220 


031524 


031542 


377 
253 


001226 TST125: 
001216 


001220 


1$: 


23: 


3%: 


4$: 


5$: 


EVEN 


MOV $TST125,NEXT 
MOV #1$,LOCK 
MSTCLR 
CLR RO 
MOV #5$,R2 
JSR PC ,MEMLD 
MEMDAT 

PC,SPLD 
SPLAT 
JSR PC,SETC 
BIC #17,2$ 
61S RO,2$ 
ROMCLK 
010000 
BIC #17,3% 
BIS RO,3$ 
ROMCLK 
040400 !<6420> 
ROMCLK 
61224 
MOVB CR2),R5 
MOVB 4(R1),R4 
CMPB RS, 
BEQ 4s 
EMT 15 
SCOP 1 
INC R2 
INC RO 
CMP #10,R0 
BNE 1$ 
SCOPE 
BYTE 





SEQ 109 


:R1 CONTAINS BASE DMC1ii ADDRESS 


;MASTER CLEAR DMC11 

;MEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

;LOAD 8 WORDS OF MAIN MEMORY 

sPOINTER TO DATA 

;LOAD 8 WORDS OF SP 

sPOINTER TO DATA 

;SET C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

= rey F - INSTRUCTION, ROMCLK PC=5304 
3 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

:PUT “EXPECTED” IN RS 

;PUT “FOUND” IN R4 

;DATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO9=1? 

sNEXT DATA 

sNEXT ADDRESS 

sDONE YET? 

;BR IF NO 

SCOPE THIS TEST 


a 
es i. -i, -1,253,253, 125, 125 


5 £#4$40460646446046460646046460044604444% TEST 125 £644446444464462464464446 4444404 


;#ALU TEST 


s#TEST OF ALU FUNCTION SUB WITH C BIT SET 
CODE =16 


s*#ALU FUNCTION (A-B) 


3;*#LOAD MAIN MEM AND SP WITH 8 WORDS OF 


DATA 


;#PERFORM THE FUNCTION, VERIFY THE RESULTS 
§  SHREREEERE ESSE EAEEESESEDEADSEAEEEEEREDASEALELEERESEEEEEEEEEEELA 


s TEST i125 

3 ea ec ee ec eee aecane 

MOV #125, TSTNO 
MOV #TST126,NEXT 
MOV #1$,L0CK 
MSTCLR 

CLR RO 

MOV #5$,R2 

JSR PC ,MEMLD 
MEMDAT 


sR1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 


3 + ss 

sPOINTER TO CORRECT DATA - 
;LOAD 8 WORDS OF MAIN MEMORY 

sPOINTER TO DATA 
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012737 
012737 
012737 


034762 


035040 
000017 
031700 


031700 


000017, 031716 


031716 


000004 


000010 


001 
000 
000 


377 
253 


001226 TST126: 
001216 


001220 


032054 


032072 


1%: 


23: 


3$: 


4$: 


5$: 


-EVEN 


1$: 


2s: 


JSR PC ,.SPLD 

SPDAT 

JSR PC,SETC 

BIC #17,2$ 

BIS RO,2$ 

ROMCLK 

0106000 

BIC #17,3% 

BIS RO.3$ 

ROMCLK 

040400 !< 16420> 

ROMCLK 

61224 

MOVB CR2),R5 

MOVB 4(R1),R4 
RS ,R4 

BEQ 4$ 

EMT 15 

SCOP 1 

INC R2 

INC RO 

CMP #10,R0 

BNE i$ ; 

SCOPE 

BYTE 0,1,-1,0,¢,253,1 


§$$046466444664064664464040020440064 TEST 126 ££66464444644446 244444444424 444% 


;#ALU TEST 
s#TEST OF ALU FUNCTION ADD W/C WITH C BIT SET 


;*ALU FUNCTION CA PLUS B PLUS C) 


;LOAD 8 WORDS OF SP 

;POINTER TO DATA 

;SET C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 
;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

-~ ol oy IS INSTRUCTION, ROMCLK PC=5304 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:MOVE BR TO PORT4 
;PUT “EXPECTED” IN R5 
:PUT “FOUND” IN R4 
;DATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO9=17 

sNEXT DATA 

;NEXT ADDRESS 

;DONE YET? 

;BR IF NO 

:SCOPE THIS TEST 
25,0 


CODE=01 


;*#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION, VERIFY THE RESULTS 
§ SORE EEOEES SE SKEESSESEEEEEEEEEEEEEED ES OO OE OE EEEE EE EKEEEE EKER DEERE 


; TEST 126 

3 ~s2csen cen een eneue & 
MOV #126, TSTNO 
MOV #TST127,NEXT 
MOV #1$,LOCK 
MSTCLR 

CLR 

MOV #5$,R2 

JSR : 

MEMDAT 

JSR PC ,SPLO 
SPDAT 

JSR PC,SETC 
BIC #17,2$ 

BIS RO,2$ 
ROMCLK 

010000 

BIC #17,3$ 


sR1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMCil 
ADDRESS 


H ? 

sPOINTER TO CORRECT DATA 

sLOAD 8 WORDS OF MAIN MEMORY 
sPOINTER TO DATA 

sLOAD 8 WORDS OF SP 

sPOINTER TO DATA 

sSET C BIT! 

sCLEAR ADDRESS FIELD OF INSTRUCTION 
;ADD ADDRESS TO INSTRUCT 


SEQ 110 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;LOAD MAR 
sCLEAR ADDRESS OF INSTRUCTION 
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032064 050037 032072 BIS RO,3$ 
032070 104414 ROMCLK 

032072 040420 3$: 040400 !<014«20> 
032074 104414 ROMCLK 

032076 061224 61224 

032100 111205 MOVB (R2),R5 
032102 116104 000004 MOVB 4(R1),R4 
032106 120504 CMPB R5,R4 
032110 001401 BEQ 4$ 
032112 104015 EMT 15 
032114 104401 4$: SCOP1 

032116 005202 INC R2 
032120 0052 INC RO 
032122 022700 000010 CMP #10,R0 
032126 00134 BNE i$ 
032130 104400 COPE 

032132 001 


Ss 
000 eo 5$: -BYTE 1,0,0,-1,253.0,0,125 


SEQ ili 


;ADD ADDRESS TO INSTRUCTION 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;BR _ ADD W/C 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 
;PUT “EXPECTED” IN R5 
:PUT “FOUND” IN R4 
;DATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO9=1? 

sNEXT DATA 

;sNEXT ADDRESS 

;DONE YET? 

:BR IF NO 

;SCOPE THIS TEST 


9 4#2444O4466466446046044044046444040404 TEST 127 £6 64444446444 44644 444444844444 
;*TEST OF ALU FUNCTION eS. a C BIT SET 
:#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 


;*#PERFORM THE FUNCTION, VERIFY THE RESULTS 
j SHARES REEESSERERESEAEAEEAASEAEAEEEEEALES OS SE EE EEEEEEEEEAEE ER EEE 


EVEN 
49 

;#ALU TEST 

;#ALU FUNCTION (A-B-C) 

; TEST 127 

ry ane ean aacnaaaa «= 
032142 012737 000127 001226 1TST127: MOV #127,TSTNO 
032150 012737 032316 001216 MOV #TST130, NEXT 
032156 012737 032210 001220 MOV #1$,LOCK 
032164 104412 MSTCLR 
032166 005000 CLR RO 
032170 012702 032306 MOV #53 ,R2 
032174 004737 034726 JSR PC .MEMLD 
032200 035052 MEMDAT 
032202 004737 034762 JSR PC ,SPLD 
032206 035062 SPDAT 
032210 004737 035040 is: JSR PC ,SETC 
032214 042737 000017 032230 BIC #17,2$ 
032222 050037 032230 BIS RO.2$ 
032226 104414 ROMCLK 
032230 010000 2s: 010000 
032232 042737 000017 032246 BIC #17,3% 
032240 050037 032246 BIS RO,3$ 
032244 104414 ROMCLK 
032246 040440 3$: 040400 ! <2420> 
032250 104414 ROMCLK 
032252 061224 61224 
032254 111205 MOVB (R2),&5 
032256 116104 000004 MOVB 4(R1),R4 
032262 120504 CMPB RS ,R4 


-— 





sR1 CONTAINS BASE DMC11i ADDRESS 
sMASTER CLEAR DMC1i 

;MEM + SP ADDRESS 

sPOINTER TO CORRECT DATA 

sLOAD 8 WORDS OF MAIN MEMORY 
sPOINTER TO DATA 


sSET C BIT! 

;sCLEAR ADDRESS FIELD OF INSTRUCTION 

sADD ADDRESS TO INSTRUCTION 

iNEXT a IS INSTRUCTION, ROMCLK PC=5304 
5 

sCLEAR ADDRESS OF INSTRUCTION 

sADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


sBR _ SUB W/C 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 


sPUT “EXPECTED” IN R5 
sPUT “FOUND” IN R4 
sDATA CORRECT? 
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06 
032311 
032314 


032316 
032324 
032332 


032340 
032342 


012737 
012737 
012737 


000130 
032472 
032364 


032462 
034726 


034762 
035040 


000017 
032404 


000017 
032422 


000004 


000010 





001226 
001216 
001220 


032404 


032422 





4s: 


TST130: 


1$: 


2s: 


3$: 


BEG 4$ 

EMT 15 
SCOP 1 

INC R2 

INC RO 

CMP #10,R0 
BNE i$ 
SCOPE 

BYTE 


Se Oe oe 2<¢SS8? oc Aes es om — es —_ tellin SS SE ae a to 


;BR IF YES 
;ALU ERROR 
;SWO9=17 

;NEXT DATA 


: 0 
;SCOPE THIS TEST 


ou3. -1,0,0,253, 125, 0 


5406464640460 446404 4644644444048 404044 TEST 130 cece ac ce cece be ce ehhh echo tce 


s*ALU TEST 


s#TEST OF ALU FUNCTION INC A WITH C BIT SET 

;#ALU FUNCTION (A PLUS 1) CODE=3 

;*LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

; #PERF ORM THE FUNCTION, VERIFY THE RESULTS 

j  RREEEEEE REESE ER EAASEREEAERAEEEEEAEERERE AEE AAA ELAS EES EERE EE EEE 


; TEST 130 
MOV #130, TSTNO 
MOV #TST131,NEXT 
MOV #1$,LOCK 
MSTCLR 
CLR RO 
MOV #5$,R2 
JSR ‘ D 
MEMDAT 
PC ,SPLD 

SPDAT 
SR PC,SETC 
BIC #17,2$ 
BIS RO,2$ 
ROMCLK 
010000 
BIC #17,3$ 
6IS »3$ 

LK 
040400! <3420> 

LK 
61224 
MOVB (R2).RS 
MOVB 4(R1),R4 
CMPB RS, 
BEQ 4$ 
EMT 15 
SCOP 1 
INC R2 
INC RO 
CMP #10,RO0 
BNE $ 
SCOPE 


;R1 CONTAINS BASE DMC11 ADDRESS 

sMASTER CLEAR DOMC1i1 

;MEM + SP ADDRESS 

toe TO CORRECT DATA 

;LOAD 8 WORDS OF MAIN MEMORY 

;POINTER TO DATA 

sLOAD 8 WORDS OF SP 

sPOINTER TO DATA 

;SET C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

oi XT fh IS INSTRUCTION, ROMCLK PC=5304 
; 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORT4 

;PUT “EXPECTED” IN R5 
sPUT “FOUND” IN R4 
:DATA CORRECT? 

;BR IF YES 

;ALU ERROR 

;SWO9=1? 

sNEXT DATA 

;NEXT ADDRESS 

;DONE YET? 

;BR IF NO 

;SCOPE THIS TEST 


ORR O+ ( PRERADED LET LADE 


SEQ 112 


— 
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032462 
032465 
032470 


032472 


001 
000 
253 


012737 
012737 
012737 


001 
126 
253 


032540 


032636 
034726 


034762 


000017 
032576 


000004 


0000910 


000 
252 
124 





000 
126 


001226 
001216 
001220 


032560 


032576 


376 
252 


5$: 


-EVEN 


TST131: 


1$: 


2s: 


3$: 


4$: 


5$: 


-EVEN 


-BYTE 


SEQ 113 


1,1,0,0,126,126,253,253 


$$ 446646460646640646646446464644400404% TEST 13] shee seen se eeeeeece esse ecees 
:*#ALU TEST 
;*TEST OF ALU FUNCTION 2A WITH C BIT SET 
;#ALU FUNCTION (CA PLUS A) CODE=5 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;*#PERFORM THE FUNCTION, VERIFY THE RESULTS 

ft RERESEEEASEEAEASAKAAEALAAARARESAASAREASEAEALSAGAARALELELALALEELERS 


s Tear 


#131, TSTNO 
#TST132,NEXT 
#1$,LOCK 


i31 


#10,R0 
i$ 


3R1 CONTAINS BASE DMC11 ADDRESS 

sMASTER CLEAR DMCil1 

;MEM + SP ADDRESS 

;POINTER TO CORRECT DATA 

;LOAD 8 WORDS OF MAIN MEMORY 

;sPOINTER TO DATA 

;LOAD 8 WORDS OF SP 

sPOINTER TO DATA 

:SET C BIT! 

;CLEAR ADDRESS FIELD OF INSTRUCTION 

;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD MAR 

;CLEAR ADDRESS OF INSTRUCTION 

:ADD ADDRESS TO INSTRUCTION 

a gag IS INSTRUCTION, ROMCLK PC=5304 
; 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE BR TO PORTS 

3PUT “EXPECTED” IN R5 


;SWO9=1? 


NO 
THIS TEST 


0,0,376,376,252, 585, 124,124 


5 %$64464460604646466466466464644644660464 TEST 132 £66£644644664644666646446464464646466 
;#ALU TEST 
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033020 


012737 
012737 
012737 


000132 
033022 
032714 


033012 
034726 


034762 


000017 
032752 


000004 


001226 
001216 
001220 


032734 


032752 


000 
126 


TST132: 


1$: 


2$: 


3$: 


4$; 


5$: 


-EVEN 


;#TEST OF ALU FUNCTION A PLUS C ab C BIT SET 
;#ALU FUNCTION CA PLUS C) CODE=4 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
;*#PERFORM THE FUNCTION, VERIFY THE RESULTS 


gt SESSESSEKAESS EEAESELESALEAAAASALAASALEKEALELELEARERALERERALALREERS 


: TEST 132 
bana eee en ig 
MOV #132,TSTNO 
MOV #TST133,NEXT 
MOV #1$,LOCK 
;R1 CONTAINS BASE DMC1i1 ADDRESS 

MSTCLR sMASTER CLEAR DMC11 
CLR RO ;MEM + SP ADDRESS 
MOV #5$,R2 :POINTER TO CORRECT DATA 
JSR PC ,MEMLD ;LOAD 8 WORDS OF MAIN MEMORY 
MEMDAT sPOINTER TO DATA 
JSR PC,.SPLD ;LOAD 8 WORDS OF SP 
SPDAT ;sPOINTER TO DATA 
JSR PC ,SETC ;SET C BIT! 
BIC $17,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ :ADD ADDRESS TO INSTRUCTION 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK ;NEXT a IS INSTRUCTION, ROMCLK PC=5304 
040400 ! <4220> ;BR _ A PLUS C 

LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 ;MOYE BR TO PORT4 
MOVB CR2),R5 sPUT “EXPECTED” IN RS 
MOVB 4(R1),R4 sPUT “FOUND” IN R4 
CMPB RS ,R4 sDATA CORRECT? 
BEQ 4$ ;B8R IF YES 
EMT 15 ;ALU ERROR 
SCOP 1 ;SWO9=1? 
INC R2 sNEXT DATA 
INC RO sNEXT ADDRESS 
CMP #10,R0 sDONE YET? 
BNE i$ ;BR IF NO 

;SCOPE THIS TEST 


i, 1,9,0, 126,126, 253, 253 


$$$24666464640466040046446060000082 TEST 1335 £42464462406464484444624044424688 
:#ALU TEST 

;*TEST OF ALU FUNCTION 2‘S COMP a WITH C BIT SET 

;#ALU FUNCTION (A-B-1) CODE =1 

;#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

;*PERFORM THE FUNCTION, VERIFY THE RESULTS 


$2 8 O000466 4644606046 6464446646666 66 6446400646464646464644646064644646444646064600046 64646464608 


s TEST 135 





CZ0MC 


OMC11 ALU TESTS 


104 


SEQ 115 
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033171 
033174 


033176 
0 


012737 
012737 
012737 


012737 
012737 
012737 


104412 
005000 
012702 
004737 


000133 
033176 
033070 


033166 
034726 


034762 
035040 


000017 
033110 


000017 
033126 


000004 


000134 
033352 
033244 


033342 
034726 


033110 


033126 


376 
252 


001226 1TST134: 
001216 
001220 


TST133: MOV 
MOV 


1$: 


2$: 


3$: 


4$: 


5$: 


-EVEN 


#133.,TSTNO 

#TST134,NEXT 
MOV #1$,LOCK 

;R1 CONTAINS BASE DMCil ADDRESS 

MSTCLR ;MASTER CLEAR DMCi1 
CLR RO ;MEM + SP ADDRESS 
MOV #5$,R2 sPOINTER TO CORRECT DATA 
JSR PC ,MEMLD sLOAD 8 WORDS OF MAIN MEMORY 
MEMDAT sPOINTER TO DATA 
JSR PC,SPLD ;LOAD 8 WORDS OF SP 
SPDAT sPOINTER TO DATA 
JSR PC ,SETC ;SET C BIT! 
BIC #17,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
BIS RO,3$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
040400 !<17420> ;BR _ 2'S COMP SUB 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB CR2),.R5 sPUT “EXPECTED” IN RS 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 
CMPB RS ,.R4 sDATA CORRECT? 
BEQ 4% ;BR IF YES 
EMT 15 sALU ERROR 
SCOP1 3SWO9=1? 
INC Re sNEXT DATA 
INC RO sNEXT ADDRESS 
CMP #10,R0 sDONE YET? 
BNE is ;BR IF NO 
SCOPE sSCOPE THIS TEST 
-BYTE -1,0,376,-1,-1,252,124,-1 


§4$666004606646464006460040000086 TEST 134 £66264464646606460046406846046000888 
s*ALU TEST 

s#TEST OF ALU FUNCTION DEC A WITH C BIT SET 

:*ALU FUNCTION CA-1) =7 

:*#LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 

s#PERFORM THE FUNCTION, VERIFY THE RESULTS 


8 2 9O0046666446646.06 $6 06660 6646066664666 6464686464660 06464 00646446046 4424600460646 684 


; TEST 134 
2 ween neneceaeaeaes 
MOV #134, TSTNO 
MOV #TST135,NEXT 
MOV #1$,LOCK 
sR1 CONTAINS BASE DMC11i ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
CLR RO ; * ADORESS 
MOV #5$,R2 sPOINTER TO CORRECT DATA 


PC ,MEMLD sLOAD 8 WORDS OF MAIN MEMORY 
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012737 
012737 


034762 


035040 
000017 


033264 


000017 
033302 


000004 


000010 


377 
124 
251 


033264 


033302 


376 
124 


satan TST135: 


00121 


1%: 


2s: 


3%: 


4%: 


5$: 


.EVEN 


is: 





SEQ 116 


MEMDAT :POINTER TO DATA 
JSR PC .SPLD ;LOAD 8 WORDS OF SP 
SPDAT :POINTER TO DATA 
JSR PC ..SETC ;SET C BIT! 
BIC #17.,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
BIS RO,2$ ;ADD ADDRESS TO INSTRUCTION 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
010000 ;LOAD MAR 
BIC #17,3$ ;CLEAR ADDRESS OF INSTRUCTION 
BIS RO.3$ ;ADD ADDRESS TO INSTRUCTION 
ROMCLK ;NEXT WORD INSTRUCTION, ROMCLK PC #5304 
040400 !<7220> ;BR _ DEC A 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
61224 sMOVE BR TO PORT4 
MOVB CR2),R5 sPUT “EXPECTED” IN RS 
MOVB 4(R1),R4 ;PUT “FOUND” IN R4 
oR4 sDATA CORRECT? 
BEQ 4$ ;BR IF YES 
EMT 15 ;ALU ERROR 
SCOP1 3SWO09=17 
INC R2 sNEXT DATA 
INC RO sNEXT ADDRESS 
CMP #10,RO0 :DONE YET? 
BNE i$ ;BR IF NO 
SCOPE ;SCOPE THIS TEST 
BYTE -1,-1,376,376,124,124,251,251 


20200 406460646406406004840000042 TEST 135 ££2646440660464664044444464466448 
;*TEST OF PROGRAM CLOCK BIT 

;#D0 A MASTER CLEAR, WRITE THE PROGRAM CLOCK BIT TO A ONE, 
s*VERIFY THAT IT CLEARS, AND THEN SETS SOME TIME LATER 

§ 3006006066 404608 40464646 64606406046604644466 460460846046 4644646666464464644 0464484686 


; TEST 135 
3 eenece ene en eanaeaaee 
MOV #135, TSTNO 
MOV @TST136,NEXT 
sR1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
CLR TEMP sPREPARE FOR 
CLR TEMP 1 sDELAY 
MOV #11,R2 sSAVE "FOR vegan 
MOV #20,4(R1i) sLOAD PORT 4 
BISB @B1T1,1(R1) sSET ROMI 
MOV 0121111,6(R1) sSEL6 _ INSTRUCTION 
BISB @BIT1!61T0, 1(R1);SET CLOCK BIT 
MOV #121224,6(R1 sLOAD NEXT INSTRUCTION 
BISB @BIT1!8IT0, 1(R1);READ CLOCK BIT 
BICB #BIT1!6ITO,1(R1);CLEAR MAINT BITS 
MOV 4(R1),R4 sPUT “FOUND” IN R4 
CLR RS PUT “EXPECTED” IN RS 
oy — sIS PGM CLOCK CLEAR? 
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MACRO VO4.00 27-JUN-85 13:16:37 PAGE 27-78 


033540 
033542 


104016 


012737 
012737 


000024 


2s: 


33%: 


TST1i36: 


5$: 


i$: 


23: 
3$: 





EMT 16 sERROR, PGM CLOCK IS NOT CLEAR 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121224 sPORT4_LUL1 
$20,4(R1) :IS PGM CLOCK SET? 
BEQ 3$ ;BR IF YES 
ADD 41, TEMP s INCREMENT DELAY 
ADC TEMP1 sINCREMENT DELAY 
CMP #6, TEMP1 :IS DELAY DONE 
BNE $ : NO 
MOV €20.R5 sPUT “EXPECTED” IN RS 
MOV 4(R1),R4 sPUT “FOUND” IN R4 
EMT 16 sERROR PGM CLOCK NOT SET 
SCOPE sSCOPE THIS TEST 


§220646466066060000000040e0488s TEST 136 £6£6666646646484644664646064484% 
;*FORCE POWER FAIL TEST 

;*SET FORCE POWER FAIL BIT VERIFY THAT PROCESSOR TRAPS TO 24 
s#GOING DOWN AND COMING UP. VERIFY ALSO THAT BUS INIT WAS 
s*#BLOCKED FROM GETTING TO THE DMC DURING THE POWER FAIL 

s*THIS TEST MAY HANG ON SOME PROCESSORS IF AN M9301 IS PRESENT. 
3#T0 AVOID HANGING SWO2 (POWER ON REBOOT ENABLE) ON THE M9301 
s*#MUST BE IN THE OFF POSITION. THIS TEST WILL ALSO FAIL IF THE 
;#CPU POWER FAIL VECTOR IS SET TO ANY LOCATION OTHER THAN 24. 
s#IF THIS TEST HANGS OR FAILS OUE TO EITHER REASON ABOVE THE 
;*#FOLLOWING PATCH MAY BE INSTALLED TO SKIP THIS TEST: 

2% 


34 LOC 33362 WAS 33544 SB 33736 
$ 5 $600066066066006 66 66460000606000606600006 06000000 60000060040060404 
; TEST 136 
3 een acanananenecaesa & 
MOV #136. TSTNO 
MOV @TST137,NEXT 
sRi CONTAINS BASE OMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC1i 
CLR sPREPARE FOR DELAY 
MOV 0024 ,-(SP) sSTORE POWER FAIL ADDRESS 
MOV #1$ ,9024 sSET UP FOR FORCE POWER FAIL 
MOV #2 .4(R1) sLOAD PORT4 
MOV #BIT9, (Ri) sSET ROMI 
MOV #121111,6(R1)  ;LOAD INSTRUCTION 
MOV @BIT9!BITS,.CRL) ;CLOCK INSTRUCTION 
INC TEMP sWAIT FOR POWER FAIL 
BNE 5$ 38R IF DELAY NOT DONE 
i 4 sERROR, NO POWER FAIL 
MOV 03%, 0024 sPOWER UP ADDRESS 
MOV SP 2% sSTORE STACK 
pid sWAIT FOR POWER UP SEQUENCE 
MOV 2$ ,SP sRESTORE STACK 
POP2SP sPOP STACK ce 
MOV (SP)+, 0024 sRESTORE TRUE POWER FAIL ADDRESS 
CMP @.PFAIL 9024 sIS IT CORRECT? 
BEQ 48 s8R IF YES 
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033762 


033764 


033766 
033774 


034110 
034112 


012737 
012737 


005336 


001200 


000042 


000024 


001226 
001216 


034032 
034032 
000004 


034112 
034124 
034134 


TST137: 


1$: 


2s: 


4$: 





EMT 17 sERROR., STACK IS INCORRECT 
MOV &.PFAIL .@024 sRESTORE TRUE POWER FAIL ADDRESS 
MOV @STACK ,SP sRESTORE STACK 
TST a642 3; CHECK FOR ACT-11 OR DDP 
BEG 7$ 
MOV #140, Ri 
CLR RO ; DELAY TO WAIT FOR RKOS TO BECOME 
DEC RO ; READY AFTER POWER FAIL 
BNE 83 
DEC Ri 
BNE 6$ 
MOV DMCSR Ri sRESTORE ADDRESS. R1 CLOBBERED ON 11/84 PWRFAIL 
MOV #BIT9!BIT10, (R1);SEL6 = MAINT IR 
MOV #121111,R5 sRS = EXPECTED 
MOV 4(R1),R4 :R4 = FOUND 
CMP RS RS sMAINT IR SHOULD = 12111 
BEQ +4 :BR IF OK 
EMT 25 :IF = 0 THEN BUS INIT WAS 
sNOT BLOCKED FROM CLEARING 
sTHE OMC-11i 
SCOPE ;SCOPE THIS TEST 


$$6646666666464606466006040464004 TEST 137 2044604444464 464644644 4444644444 
;#MICRO-PROCESSOR NOISE TEST 

s@WRITE ALL ZERO’S THEN ALL ONE’‘S THEN A DATA PATTERN 

#70 THE IBUS*¢ AND IBUS REGISTERS AND TO THE SP AND MAIN MEM 
;*#THEN GO BACK AND READ THE DATA PATERNS TO VERIFY THAT 
s*READING AND WRITING OF OTHER LOCATIONS AND REGISTERS 

s#DID NOT CHANGE THE DATA. 


§ 5 SPSASASESESAAESESESESEAAAAEEASKESAASEKAAASLEARELEAERALELELALALERSL 


s TEST 137 
3 rer ew nen nn eee 
MOV #137, TSTNO 
MOV ©. EOP,NEXT 
sR1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR sMASTER CLEAR DMC11 
CLR R2 sR2 IS INDEX REGISTER 
BIC #17,2$ s;CLEAR ADDRESS FIELD 
BISB 308(R2),28 ;ADD IBUS* REG ADDRESS TO INSTRUCTION 
MOVB 318(R2),4€R1)  ;LOAD PORTS 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
121100 sWRITE IBUSs REGISTER 
INC sINC INDEX REGISTER 
CMP #5 ,R2 sDONE YET? 
BNE 1$ ;BR IF NO 
CLR R2 sR2 IS IBUS REGISTER ADDRESS 
BIC #17,4$% sCLEAR ADDRESS FIELD OF INSTRUCTIONS 
BIC #17,5$ 
BIC #17,6% 
BIS R2 ,4$ sADD IBUS REG ADDRESS TO INSTRUCTION 
BIS R2,5$ 
BIS R2 ,.6$ 
CLRB 4(R1) sCLEAR PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122100 sWRITE 0 TO IBUS REG 
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034114 
034122 


112761 


000377 


000020 


000004 


000377 


000004 


000400 


100000 


000004 


000004 


000004 


001366 


034400 12$: 


5$: 


6$: 


7$: 


9$: 


10$: 


$377 ,4(R1) 


R2.4(R1) 


#377, 4(R1) 
R2,4(R1) 
R2 

€20,R2 

7$ 

R2 

4(R1) 
9377,4(R1) 


R2,4(R1) 


R2 
#400 ,R2 
11$ 


;LOAD PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE ALL ONES TO IBUS REG 

;LOAD PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE ITS OWN ADDRESS TO IBUS REG 

sNEXT ADDRESS 

sDONE YET? 

;BR IF NO 

;START AT SP ADDRESS 0 

:CLEAR ADDRESS FIELD 


sADD ADDRESS TO INSTRUCTION 


;CLEAR PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE ZERO TO SP 

sLOAD PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE ALL ONES TO SP 

;LOAD PORT4 

sNEXT WCRD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE SP ADDRESS TO ITSELF 

sNEXT SP ADDRESS 


sR2 = MAIN MEM ADDRESS 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMAR _ O 

sCLEAR PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE ZEROS TO MEM 

;LOAD PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sWRITE ONES TO MEM 

;LOAD PORT4 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;WRITE TO MEM IT OWN ADDRESS 

sNEXT MEM ADDRESS 

sDONE YET? 

:BR IF NO 


BACK AND READ EVERYTHING 
oon WORD IS INSTRUCTION, ROMCLK PC=5304 


#BIT1i5,STATL 
+6 


RO 

#360 ,13$ 
30$CRO),R2 
R2,R3 

R3 





sMAR _| 
;0MC? 
38R IF YES 


SEQ 119 


sNEXT WORD IS gw ag ROMCLK PC=5304 


sMAR HI _ O CKMC ONL 
sRO IS INDEX REGISTER 
sCLEAR ADDRESS FIELD 


sSHIFT ADDRESS TO BITS 4-7 


en 
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OMCi1 ALU TESTS 


034400 
034634 


000004 


000005 


000360 


034456 


000004 


000010 


000017 
034520 


000004 


000020 


100000 001366 


034456 


034520 


13%: 


14$: 


15$: 


16$: 


17$: 


18$: 





SEQ 120 


R3 

R3 

R3 

R3,13% ;ADU ADDRESS TO INSTRUCTION 

31$(RO),RS5S 3R5 = “EXPECTED” 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sPORT4 _ IBUS# REGISTER 

4(R1),R4 3R4 = “FOUND” 

R5 ,R4 ;IBUS*# CONTENTS OK? 

+4 ;BR IF YES 

5 ;IBUS# DATA ERROR 

RO :INC COUNTER 

#5,R0 :DONE YET? 

12$ ;BR IF NO 

R2 ;R2 = IBUS REG ADDRESS 

#360,15$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 

R2,R3 :R3 = IBUS ADDRESS 

e :SHIFT ADDRESS TO BITS 4-7 

R 

R3 

R3 

R3,15$ :ADD ADDRESS TO INSTUCTION 

R2,R5 3R5 = “EXPECTED” 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

:PORT4 _ IBUS REG 

4(R1),R4 ;R4 = “FOUND” 

RS .R4 ;IBUS CONTENTS OK? 

.°4 ;BR IF YES 

5 ;IBUS DATA ERROR 

R2 sNEXT IBUS REGISTER 

#10,R2 ;DONE YET? 

14$ ;BR IF NO 

R2 :R2 = SP ADDRESS 

#17,17$ ;CLEAR ADRESS FIELD OF INSTRUCTION 

R2,17$ :ADD ADDRESS TO INSTRUCTION 
ghd ~ ag IS INSTRUCTION, ROMCLK PC=5304 
3 in 

R2,R5 :RS5 = “EXPECTED” 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sPORT4 _ BR 

4(R1),R4 ;R4 = “FOUND” 

R5 .R4 ;SP CONTENTS OK? 

+4 ;B8R IF YES 

7 ;SP DATA ERROR 
;NEXT SP LOCATION 

#20,R2 sDONE YET? 

16$ ;BR IF NO 

R2 sR2 = MEMORY ADDRESS 
oe WORD IS INSTRUCTION, ROMCLK PC=5304 
; 

#BIT1iS,STATi ;DMC?_ 

+6 ;BR IF YES 
sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMAR HI _ O (KMC ONLY) 

R2,R5 3R5 = “EXPECTED” 


sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 _ MAIN MEM 
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152 
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034662 


034664 


034724 


034726 


034742 
034744 


012577 
012577 
112577 
112577 
000205 


010246 


112577 


002 
010 


010 


144526 
144526 
144520 
144520 


000004 
000017 
034710 


000010 


000002 
000010 


144442 


003 


034710 


30$: 


.EVEN 
31%: 


-EVEN 


; SUBROUTINES 


NPRSET: 


1$: 


2$: 


MEMLD: 


1$: 


4(R1),R4 
o 


0,2,3.5,10 


1,3,4,6,10 


OE ilies tities 


SEQ 121 


3R4 = “FOUND” 

sMAIN MEM CONTENTS OK? 
;BR IF YES 

sMAIN MEM DATA ERROR 
:NEXT MEM ADDRESS 
sDONE YET? 

;BR IF NO 

sSCOPE THIS TEST 


) sTHIS SUBROUTINE LOADS THE VECTORS AND VECTOR LEVELS 


;LOAD BASE VECTOR 
sLOAD VECTOR + 2 
;LOAD VECTOR + 4 
sLOAD VECTOR + 6 
sRETURN 


s;THIS SUBROUTINE LOADS IBUS REGISTERS 0-7 
sWITH NPR INFORMATION CINBA, OUTBA, OUT DATA) 


R2,-(SP) 
R2 


CR5)+,4CR1) 
#17,2$ 


R2.2$ 


R2 
#10,R2 
i$ 
(SP)+,R2 
R5 


sSAVE R2 

sSTART AT IBUS REG 0 

;LOAD PORT4 

sCLEAR ADDRESS FIELD OF INSTRUCTION 
;ADD ADDRESS TO INSTRUCTION 

sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
sMOVE PORT4 TO IBUS REG 

sNEXT ADDRESS 

;ALL DONE? 

;BR IF NO 

sRESTORE R2 

sRETURN 


;THIS SUBROUTINE LOADS THE FIRST 8 LOCATIONS OF MAIN 
sMEMORY WITH THIS DATA: 0,-1,,0,-1,125,252,125,252 


MOV 
ADD 
MOV 
ROMCLK 
010000 
MOVB 


OC SP)+,R5 . 


#2,-(SP) 
#10,R4 


C(R5)+, @DMP04 


sPUT POINTER TO DATA IN RS 

sADJUST STACK 

:D0 8 LOADS 

sNEXT be as IS INSTRUCTION, ROMCLK PC=5304 


;MAR 
;LOAD PORT4 











SEQ 122 
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153 034750 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
154 034752 136500 136500 SMOV DATA TO MEM, AUTO INC M 
155 034754 005304 DEC R4 sDECREMENT COUNT 
156 034756 001372 BNE is ;BR IF NOT DONE 
rH 034760 000207 RTS PC ;RETURN 
159 
162 034762 SPLD: 
163 ;THIS SUBROUTINE LOADS THE FIRST 8 SCRATCH PAD 
a3 sLOCATIONS WITH: 0,0,-1,-1,125,125,252,252 
166 034762 013605 MOV aC SP)+.RS sPUT POINTER TO DATA IN RS 
167 934764 062746 000002 ADD #2 ,-CSP) sADJUST STACK 
168 034770 5004 CLR R4 ;START AT SP ADDRESS 0 
169 034772 112577 144414 1$: MOVB CR5)+, @DMPO4 ;LOAD PORT4 WITH DATA 
170 034776 042737 000017 035012 BIC 417,2$ ;CLEAR ADDRESS FIELD OF INSTRUCTION 
171 035004 050437 035012 BIS R4,2$ ;ADD ADDRESS TO INSTRUCTION 
172 035010 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
173 035012 123100 23: 123100 sMOVE DATA TO SP 
174 035014 005204 INC R4 sINCREMENT COUNT 
175 035016 022704 000010 CMP #10,R4 sDONE YET? 
176 035022 001363 BNE i$ ;BR IF NO 
Ad 035024 000207 RTS PC ;RETURN 
179 
180 035026 CLRC: 
oe ;THIS SUBROUTINE CLEARS THE MICRO PROCESSOR C BIT 
183 035026 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
184 035030 010000 010000 ;MAR_O 
185 035032 104414 LK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
186 035034 040400 040400 !<0420> :CLEAR C BIT 
1 035036 000207 RTS PC ;RETURN 
189 
190 035040 SETC: 
et :THIS SUBROUTINE SETS THE MICRO PROCESSOR C BIT 
193 035040 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
194 035042 010003 010003 ;MAR_ 
195 035044 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
196 035046 040403 040403 !<0#20> ;SET C BIT 
197 035050 000207 RTS PC sRETURN 
- 
035055 377 125 252 
035060 125 252 
201 035062 000 000 377 SPDAT: .BYTE 0,0, -1,-1,125, 125,252,252 
035065 377 125 125 
035070 252 252 
202 -EVEN 
207 035072 377 125 116 EMI: ASCIZ <377>/UNIBUS REGISTER ADDRESSING TIME-OUT/ 
208 035137 377 125 116 EMe2: -ASCIZ <377>/UNIBUS REGISTER WRITE, READ TEST/ 
209 035201 377 115 111 EMS: -ASCIZ <377>/MICRO PROCESSOR TEST/ 
210 035227 377 115 111 EM4: -ASCIZ <377>/MICRO PROCESSOR WRITE, READ TEST/ 
211 035271 377 102 122 EMS: -ASCIZ <377>/6R REGISTER TEST/ 


SOR SA Ae 
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212 035313 377 123 103 EM6: -ASCIZ <377>/SCRATCH PAD TEST/ 

213 035335 377 104 105 EM7: -ASCIZ <377>/DEVICE FAILED TO INTERRUPT/ 

214 035371 377 104 105 €M10: -ASCIZ <377>/DEVICE INTERRUPTED TO WRONG VECTOR/ 
215 035435 377 116 120 M11: -ASCIZ <377>/NPR TEST/ 

216 035447 377 115 101 EM‘2: -ASCIZ <377>/MAIN MEMORY TEST/ 

217 035471 377 115 101 €M13: .ASCIZ <377>/MAR TEST/ 

218 035503 377 101 114 &14: -ASCIZ <377>/ALU TEST/ 

219 035515 377 120 122 €M15: -ASCIZ <377>/PROGRAM CLOCK TEST/ 

220 035541 377 106 117 M16: -ASCIZ <377>/FORCE POWER FAIL ERROR/ 

221 035571 377 125 116 EM17: -ASCIZ <377>/UNEXPECTED INTERRUPT/ 

222 035617 377 104 115 €EM20: -ASCIZ <377>/DMC11 CONFIGURATION ERROR/ 

223 035652 377 115 101 EM21: -ASCIZ <377>/MAINTENANCE INSTRUCTION REGISTER TEST/ 
224 035721 377 120 117 EM2e: -ASCIZ <377>/POWER FAIL INITIALIZE FAILURE/ 


225 

226 035760 377 122 105 DH1: -ASCIZ <377>/REGISTER TRAPPED FROM/ 
227 036021 377 105 130 DHe: -ASCIZ <377>/EXPECTED FOUND REGISTER/ 
228 036057 377 105 130 DH3: -ASCIZ <377>/EXPECTED FOUND/ 

229 036100 377 105 130 DH4: -ASCIZ <377>/EXPECTED FOUND IBUS* REGISTER/ 
230 036142 377 105 130 DHS: -ASCIZ <377>/EXPECTED FOUND IBUS REGISTER/ 
231 036203 377 105 130 DH6: -ASCIZ <377>/EXPECTED FOUND ADDRESS/ 
232 -EVEN 

233 

234 036240 000002 DT1i 2 

235 036242 006 015 -BYTE 6,15 

236 036244 001262 SAVR1 

237 036246 006 002 -BYTE 6,2 

238 036250 001264 SAVR2 

239 036252 000003 DT2: 3 

240 036254 006 004 BYTE 6,4 

241 036256 001272 SAVRS 

242 036260 006 004 -BYTE 6,4 

243 036262 001270 SAVR4 

244 036264 006 002 -BYTE 6,2 

245 036266 001262 SAVR1 

246 036270 000002 DT3: 2 

247 036272 006 004 BYTE 6,4 

248 036274 001272 SAVRS 

249 036276 006 002 BYTE 6,2 

250 036300 001270 SAVR4 

251 036302 000003 DT4: 3 

252 036304 003 007 BYTE 3,7 

253 036306 001272 SAVRS 

254 036310 003 O11 -BYTE 3,11 

255 036312 001270 SAVR4 

256 036314 002 002 BYTE 2,2 

257 036316 001264 SAVR2 

258 036320 000003 DTS: 

259 036322 003 007 -BYTE 3,7 

260 036324 001272 SAVRS 

261 036326 003 007 BYTE 3,7 

262 036330 001270 SAVR4 

263 036332 006 002 -BYTE 6,2 

264 036334 001264 SAVR2 

265 036336 000002 DT6: 2 

266 036340 003 007 SYTE 3,7 

267 036342 001272 SAVRS 

268 036344 003 002 erie. Fa 
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269 036346 001270 SAVR4 
270 036350 000002 DT7: 2 
271 036352 006 004 -BYTE 6,4 eg. 
272 036354 001262 SAVR1 
273 036356 006 002 BYTE 6,2 
274 036360 001404 
275 036362 -ERRTAB: 
276 036362 000000 
36364 000000 0 

278 036366 000000 0 
279 036370 035072 EM1 
280 036372 035760 DH1i ;EMT 1 
281 036374 036240 DTi 
282 036376 035137 EM2 
283 036400 21 DH2 ;EMT 2 
284 036402 036252 DT2 
285 036404 035201 
286 036406 036057 DH3 ;EMT 3 
287 036410 036270 DT3 
288 036412 035227 EM4 
289 036414 036100 DH4 ;EMT 4 
290 036416 036302 DT4 
291 036420 035227 EM4 
292 036422 036142 DHS ;EMT 5 

036424 036302 DT4 
294 036426 035271 EMS 
295 036430 036057 DH3 ;EMT 6 
296 036432 036336 DT6 
297 036434 035313 EM6 
298 036436 036203 DH6 ;EMT 7 
299 036440 0363 DTS 
300 036442 035335 —M7 
301 036444 00 0 ;EMT 10 
302 036446 
303 036450 035371 —EM10 

036452 000000 ;EMT ii 
305 036454 00 

036456 035435 EM11 
307 036460 036057 ;EMT 12 
308 036462 036270 DT3 
309 036464 035447 —EM12 
310 036466 036203 DH6 ;EMT 13 
311 036470 036320 DTS 
312 036472 035471 EM13 
313 036474 036203 DH6 ;EMT 14 
314 036476 036320 OTS 
315 036500 035503 —M14 
316 036502 036057 ;EMT 15 
317 036504 036336 DT6 
318 036506 035515 —EM1i5 
319 036510 036100 DH4 sEMT 16 
320 036512 036302 DT4 
321 036514 035541 EM16 
322 036516 000000 0 ;EMT 17 
323 036520 000000 0 
324 036522 035571 EM17 
325 036524 000000 0 ;EMT 20 





SEQ 125 
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326 036526 900000 0 

327 036530 035435 EM1i1 

328 036532 036203 DH6 sEMT 21 
329 036534 036320 DTS 

330 036536 035617 EM20 

331 036540 036057 DH3 ;EMT 22 
332 036542 036350 DT7 

333 036544 035652 EM21 

3354 036546 036057 DH3 ;EMT 23 
335 036550 036270 DT3 

536 036552 035617 EM20 

337 036554 000000 0 sEMT 24 
338 036556 

339 036560 035721 EM22 

340 036562 036057 DH3 ;EMT 25 
341 036564 036270 DT3 

342 

343 -EVEN 

344 036566 CORMAX : 

349 000001 END 
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SYMBOL TABLE 


ADRCNT= 004373 
AUDONE 003024 
AUSTRT 002446 


BINWRD 004714 
BITO = 000001 
BIT1 = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
BIT14 = 040000 
BIT1S = 100000 
BIT2 * 04 
BITS = 000010 
BIT4 = 000020 
BITS = 000040 
BIT6 *= 000100 
BIT7 = 000200 
BIT8 = 000400 
BIT9 = 001000 
BM 007054 
BRLVL 012252 
BRW 003730 
BRX 003732 
CHRCNT 004712 
CKSWR 007606 





036142 


MPFAIL 005675 
MQM 005666 
MR 005755 
MRESET= 004000 
MSTCLR= 104412 
MTITLE 001000 
MTSTN 006130 
MTSTPC 006031 
MVECX 006100 


PACT17 001776 


PASCNT 001230 
PERFOR= 004537 
PFTAB 005430 
POPRO = 012600 


QV.FLG 001327 
RESREG 005220 
RESTAR 005350 
RESTRT 003534 
RESOS = 104407 


SAVACT 001312 
SAVNUM 001314 


SEQ 126 





SEQ 127 
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SAVPC 001276 SWil = TST122 031106 TST43 017610 WRKO.F 005174 
SAVRO 001260 SWi2 = 010000 TST123 031262 TST44 017764 
SAVRi 001262 SWi3 = 020000 TST124 031436 TST4S 020140 
SAVR2 001264 SWi4 = 040000 TST125 031612 TST46 020314 
SAVR3 001266 SWi5 = 100000 TST126 031766 TST47 020470 
SAVR4 001270 TOATA 024542 TST127 032142 TSTS 012704 
SAVRS 001272 TEMP 001416 TST13 013470 TSTSO 020644 
SAVSP 001274 TEMP1 001246 TST130 032316 TST51 021072 
SAVOS = 104406 TEMP2 001250 TST131 032472 TSTS2 021242 
SCOPE = 194400 TEMPS 001252 TST1i32 032646 TSTS3 021510 
SCOP1 = 104401 TEMP4 001254 TST133 033022 TST54 021732 
Tc 03 TEMPS 001256 TST134 033176 TSTSS 022026 
SETVEC 054642 TIMER = 104416 TST135 033352 TST56 022120 
IP 002632 TKCSR 001204 TST136 033544 TSTS7 022240 
SOFTSW 010052 TKOBR 001206 TST137 033766 TST6 013002 
SPACNT= 004713 TLAST = 033766 TST14 013566 TST60 022404 
SPDAT 035062 TPCSR 001210 TST15 013664 TST61 022510 
SPEED 007340 TPDBR 001212 TST16 0 §©013762 TST62 022624 
LO 034762 TRPOK 004730 TST17 014060 TST63 022726 
STACK = 001200 TSTNO 001226 TST2 012426 TST64 023064 
STAT 001240 TST1 012320 TST20 014156 TST65 023210 
STAT1 0013 TST10 §6©013176 TST21 014254 TST66 023320 
STAT2 001370 TST100 025256 TST22 014352 TST67 023426 
STATS 0€1372 TST101 025432 TST23 014450 TST7 013100 
STRTSW 001236 TST102 025606 TST24 014546 TST70 023624 
SVO5 02 TST103 025762 TST25 014672 TST7i 023752 
SWFLG 010016 TST104 026136 TST26 015016 TST72 024104 
SWMES 007205 TST105 026312 TST27 015146 TST73 024304 
SWMES1 007215 TST106 026466 TST3 012456 TST74 024440 
SWR 001202 TST107 026642 TST3O 015306 TST75 024552 
SWREG 000176 TSTi1 013274 TST31 015450 TST76 024726 
SWOO = 000001 TST110 027016 TST32 015534 TST77 025102 
SWO1 = 000002 TST111 027172 TST33 6015734 TTST 003612 
SWO2 = 000004 TST112 027346 TST34 016134 TWOSYN= 010000 
SWOS = 000010 TST113 027522 TST35 016310 TYPDAT 005206 
SWO4 = 000020 TST114 027676 TST36 016464 TYPE 104402 
SWOS = 000040 TST115 030052 TST37 016664 TYPMSG 005106 
SWO6 = 000100 TST116 030226 TST4 012606 VEC 006526 
SWO7 = 000200 TST117 030402 TST40 017104 VECMAP 012010 
SWO8 = 000400 TSTi2 013372 TST41 017260 WHICH 012002 
SWO9 = 001000 TSTi20 030556 TST42 017434 WROCNT 004710 
SW10 = 002000 TSTi21 030732 
- ABS. 036566 000 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 53760 WORDS ( 210 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
CZOMCO.BIN,CZDMCD.SEQ=CZDMCD .P11 





e 





